realgud:string-starts-with -> string-prefix-p. Thanks to Stefan Monnier for pointing...

diff --git a/realgud.el b/realgud.el
index d847a1839b47cbe6bcfdcd351450447a6693622a..c9ac1ab9c3f6dcfb0e97a3f62f163f0162a31ad7 100644 (file)
--- a/realgud.el
+++ b/realgud.el
@@ -129,12 +129,10 @@
 
 (load-relative "./realgud/common/custom")
 
-(declare-function realgud:string-starts-with 'realgud-utils)
-
 (defun realgud-feature-starts-with(feature prefix)
   "realgud-strings-starts-with on stringified FEATURE and PREFIX."
   (declare (indent 1))
-  (realgud:string-starts-with (symbol-name feature) prefix)
+  (string-prefix-p (symbol-name feature) prefix)
   )
 
 (defun realgud:loaded-features()

diff --git a/realgud/common/buffer/source.el b/realgud/common/buffer/source.el
index b4a585e393e35eadc32b4a58a39917383d02f7ec..7294bbab282d0d16cf0cff172ba04ae50b46a33f 100644 (file)
--- a/realgud/common/buffer/source.el
+++ b/realgud/common/buffer/source.el
@@ -10,15 +10,16 @@
 (require-relative-list '("../helper" "../key") "realgud-")
 
 (declare-function realgud-populate-common-keys 'realgud-menu)
-(declare-function buffer-killed? 'realgud-helper)
-(declare-function buffer-loc-line-number? 'realgud-loc)
-(declare-function realgud-cmdbuf-add-srcbuf 'realgud-cmdbuf)
-(declare-function realgud-cmdbuf-info-bp-list 'realgud-cmdbuf)
-(declare-function realgud-loc-marker          'realgud-loc)
-(declare-function realgud-loc-line-number     'realgud-loc)
-(declare-function realgud-loc-num             'realgud-loc)
-(declare-function make-realgud-loc-hist       'realgud-lochist)
-(declare-function realgud-get-srcbuf          'helper)
+(declare-function buffer-killed?               'realgud-helper)
+(declare-function buffer-loc-line-number?      'realgud-loc)
+(declare-function realgud-cmdbuf-add-srcbuf    'realgud-cmdbuf)
+(declare-function realgud-cmdbuf-info-bp-list  'realgud-cmdbuf)
+(declare-function realgud-loc-marker           'realgud-loc)
+(declare-function realgud-loc-line-number      'realgud-loc)
+(declare-function realgud-loc-num              'realgud-loc)
+(declare-function make-realgud-loc-hist        'realgud-lochist)
+(declare-function realgud-get-srcbuf           'helper)
+(declare-function realgud-short-key-mode-setup 'realgud-shortkey)
 
 (defstruct realgud-srcbuf-info
   "debugger object/structure specific to a (top-level) source program
@@ -122,7 +123,7 @@ in it with those from CMDPROC-BUFFER"
 assumed to be a source-code buffer"
   (interactive "brealgud command buffer: ")
   (realgud-srcbuf-init-or-update (current-buffer) (get-buffer cmdbuf-name))
-  (realgud-short-key-mode)
+  (realgud-short-key-mode-setup 't)
   )
 
 (defun realgud-srcbuf-bp-list(&optional buffer)

diff --git a/realgud/common/init.el b/realgud/common/init.el
index b60c34c47cbdca2b30932c25135465baefd92f74..38ee39c64f5a75c9cbbf8e6cc9c2c34927adfb74 100644 (file)
--- a/realgud/common/init.el
+++ b/realgud/common/init.el
@@ -1,11 +1,11 @@
-;;; Copyright (C) 2010 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2010, 2015 Rocky Bernstein <rocky@gnu.org>
 (require 'load-relative)
 
 (defface realgud-line-number
   '((t :inherit font-lock-variable-name-face))
   "Face for displaying line numbers in."
   :group 'realgud
-  :version "23.1")
+  :version "23.4")
 
 (defvar realgud-line-number-face 'realgud-line-number
   "Face name to use for line numbers.")
@@ -14,7 +14,7 @@
   '((t :inherit font-lock-preprocessor-face))
   "Face for displaying file names."
   :group 'realgud
-  :version "23.1")
+  :version "23.4")
 
 (defface realgud-backtrace-number
   '((t

diff --git a/realgud/common/shortkey.el b/realgud/common/shortkey.el
index aafb93a75fa3c467c2620b75ec9dedec3dc0d357..812f8900505961a936beb734b55e890cca235b0e 100644 (file)
--- a/realgud/common/shortkey.el
+++ b/realgud/common/shortkey.el
@@ -1,14 +1,21 @@
 ;;; Copyright (C) 2010-2015 Rocky Bernstein <rocky@gnu.org>
 (require 'load-relative)
-(require-relative-list '("custom" "helper" "key" "lochist" "menu")
+(require-relative-list '("custom" "helper" "key" "lochist" "loc" "menu")
                       "realgud-")
 (require-relative-list '("buffer/command" "buffer/helper" "buffer/source")
                       "realgud-buffer-")
 
+(eval-when-compile
+  (defvar realgud:tool-bar-map) ;; Fully defined in track-mode
+)
+
+
 (declare-function realgud-cmdbuf?                       'realgud-buffer-command)
 (declare-function realgud:debugger-name-transform       'realgud-helper)
 (declare-function realgud-get-cmdbuf                    'realgud-buffer-helper)
+(declare-function realgud:loc-follow                    'realgud-loc)
 (declare-function realgud-loc-hist-item-at              'realgud-lochist)
+(declare-function realgud-cmdbuf-loc-hist               'realgud-command)
 (declare-function realgud-populate-debugger-menu        'realgud-menu)
 (declare-function realgud-populate-common-keys          'realgud-key)
 (declare-function realgud-populate-src-buffer-map-plain 'realgud-key)
@@ -16,7 +23,7 @@
 (declare-function realgud-srcbuf-info-was-read-only?=   'realgud-source)
 (declare-function realgud-srcbuf?                       'realgud-buffer-source)
 
-;; (devar realgud::tool-bar-map) ;; fully defined in track-mode.el
+;; (defvar realgud::tool-bar-map) ;; fully defined in track-mode.el
 
 (defvar realgud:shortkey-mode-map
   (let ((map (make-sparse-keymap)))

diff --git a/realgud/common/utils.el b/realgud/common/utils.el
index 9a3830782fde6e58089039e6316d54f6500e4065..aede640324c8552b76fb9177441fc6c279a30a15 100644 (file)
--- a/realgud/common/utils.el
+++ b/realgud/common/utils.el
@@ -1,14 +1,5 @@
 (require 'load-relative)
 
-;; Really should be part of GNU Emacs. But until then...
-(defmacro realgud:string-starts-with(string prefix)
-  "compare-strings on STRING anchored from the beginning and up
-  to length(PREFIX)"
-  (declare (indent 1) (debug t))
-  `(compare-strings ,prefix 0 (length ,prefix)
-                   ,string  0 (length ,prefix))
-  )
-
 (defun realgud:strip (str)
       "Remove leading and tailing whitespace from STR."
       (while (string-match "\\`\n+\\|^\\s-+\\|\\s-+$\\|\n+\\'"

diff --git a/realgud/debugger/gub/gub.el b/realgud/debugger/gub/gub.el
index 553574c66448024bb312465f527a55b9970aca5c..2933d5276de8ef34d90c6559b0c23a886d21e837 100644 (file)
--- a/realgud/debugger/gub/gub.el
+++ b/realgud/debugger/gub/gub.el
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2013-2014 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2013-2015 Rocky Bernstein <rocky@gnu.org>
 ;;  `gub' Main interface to Go gub via Emacs
 (require 'load-relative)
 (require-relative-list '("../../common/helper") "realgud-")
@@ -9,7 +9,7 @@
 (defgroup realgud:gub nil
   "The realgud interface to the Go SSA interpreter debugger, gub"
   :group 'realgud
-  :version "23.1")
+  :version "23.4")
 
 ;; -------------------------------------------------------------------
 ;; User definable variables

diff --git a/realgud/debugger/trepan8/trepan8.el b/realgud/debugger/trepan8/trepan8.el
index 1be35de3c6bb3e8140d6b2f86ebafa56ad89f7d5..8f96c6ede4142e0fc8d1a8597786765bbcaa8d8e 100644 (file)
--- a/realgud/debugger/trepan8/trepan8.el
+++ b/realgud/debugger/trepan8/trepan8.el
@@ -15,7 +15,7 @@
   "The reagud interface toe th Ruby \"trepanning\" debugger for Ruby 1.8"
   :group 'ruby
   :group 'realgud
-  :version "23.1")
+  :version "23.4")
 
 ;; -------------------------------------------------------------------
 ;; User-definable variables

diff --git a/test/test-realgud.el b/test/test-realgud.el
index ddd45a05f1f359915e0b320fcd946822d8835f0b..9c039841a9219f366fd862bad1835b530e993658 100644 (file)
--- a/test/test-realgud.el
+++ b/test/test-realgud.el
@@ -3,7 +3,6 @@
 
 (declare-function realgud:loaded-features    'realgud)
 (declare-function realgud:unload-features    'realgud-regexp)
-(declare-function realgud-string-starts-with 'realgud-regexp)
 (declare-function __FILE__                   'load-relative)
 
 (test-simple-start)

diff --git a/test/test-utils.el b/test/test-utils.el
index 44d7730be541a6a045f27b3fac883e57156d5ab7..318a2e7a8cfb946cb172702c7bcb46e69b02c1ad 100644 (file)
--- a/test/test-utils.el
+++ b/test/test-utils.el
@@ -3,7 +3,6 @@
 
 (declare-function realgud:flatten            'realgud-utils)
 (declare-function realgud:strip              'realgud-regexp)
-(declare-function realgud:string-starts-with 'realgud-utils)
 (declare-function __FILE__                   'load-relative)
 
 (test-simple-start)
@@ -12,11 +11,6 @@
   (defvar test-realgud:features)
 )
 
-(note "realgud:starts-with")
-(assert-equal 1 (realgud:string-starts-with "abcdef" "realgud-"))
-(assert-t (realgud:string-starts-with "realgud-foo" "realgud-"))
-(assert-equal -8 (realgud:string-starts-with "realgudfoo" "realgud-"))
-
 (note "realgud:strip")
 (assert-equal "abc" (realgud:strip "abc"))
 (assert-equal "def" (realgud:strip "\n  def\t  "))