[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 5a84817 178/215: Fix invalid references to realgud:loc-fol
From: |
Rocky Bernstein |
Subject: |
[elpa] master 5a84817 178/215: Fix invalid references to realgud:loc-follow |
Date: |
Sat, 30 Jul 2016 14:49:04 +0000 (UTC) |
branch: master
commit 5a84817f58186299daa77ab0a312255bcfa82f5c
Author: Clément Pit--Claudel <address@hidden>
Commit: Clément Pit--Claudel <address@hidden>
Fix invalid references to realgud:loc-follow
`follow-mark' was introduced in dcc152aa6aea8d201596750c1b69b63e57c4fd43,
but a few references to loc-follow had remained since then.
Also replace a few instances of (interactive "") with (interactive).
Fixes #91.
---
realgud/common/follow.el | 2 +-
realgud/common/fringe.el | 14 +++++++-------
realgud/common/shortkey.el | 22 ++++++++++------------
3 files changed, 18 insertions(+), 20 deletions(-)
diff --git a/realgud/common/follow.el b/realgud/common/follow.el
index a360522..7b379c9 100644
--- a/realgud/common/follow.el
+++ b/realgud/common/follow.el
@@ -27,7 +27,7 @@
))
(defun realgud:follow-point()
- (interactive "")
+ (interactive)
(realgud:follow (point)))
(defun realgud:follow-event(event)
diff --git a/realgud/common/fringe.el b/realgud/common/fringe.el
index da6ade0..237a97f 100644
--- a/realgud/common/fringe.el
+++ b/realgud/common/fringe.el
@@ -6,7 +6,7 @@
(declare-function realgud-loc-hist-item-at 'realgud-lochist)
(declare-function buffer-killed? 'helper)
(declare-function realgud-loc-cmd-marker 'realgud-loc)
-(declare-function realgud:loc-follow 'realgud-loc)
+(declare-function realgud:follow-mark 'realgud-follow)
(declare-function realgud-loc-marker 'realgud-loc)
;; Bitmap for hollow overlay-arrow in fringe
@@ -168,14 +168,14 @@ session which should also erase those fringe arrows."
"Goto the position stored in realgud-overlay-arrow1"
(interactive "")
(if realgud-overlay-arrow1
- (realgud:loc-follow realgud-overlay-arrow1))
+ (realgud:follow-mark realgud-overlay-arrow1))
)
(defun realgud-goto-arrow2()
"Goto the position stored in realgud-overlay-arrow2"
(interactive "")
(if realgud-overlay-arrow2
- (realgud:loc-follow realgud-overlay-arrow2))
+ (realgud:follow-mark realgud-overlay-arrow2))
)
@@ -183,7 +183,7 @@ session which should also erase those fringe arrows."
"Goto the position stored in realgud-overlay-arrow3"
(interactive "")
(if realgud-overlay-arrow3
- (realgud:loc-follow realgud-overlay-arrow3))
+ (realgud:follow-mark realgud-overlay-arrow3))
)
(defun realgud-recenter-arrow1()
@@ -205,15 +205,15 @@ session which should also erase those fringe arrows."
(with-current-buffer-safe buffer
(if (and realgud-overlay-arrow3
(eq (marker-buffer realgud-overlay-arrow3) buffer))
- (realgud:loc-follow realgud-overlay-arrow3)
+ (realgud:follow-mark realgud-overlay-arrow3)
)
(if (and realgud-overlay-arrow2
(eq (marker-buffer realgud-overlay-arrow2) buffer))
- (realgud:loc-follow realgud-overlay-arrow2)
+ (realgud:follow-mark realgud-overlay-arrow2)
)
(if (and realgud-overlay-arrow1
(eq (marker-buffer realgud-overlay-arrow1) buffer))
- (realgud:loc-follow realgud-overlay-arrow1)
+ (realgud:follow-mark realgud-overlay-arrow1)
)
(redisplay)
)
diff --git a/realgud/common/shortkey.el b/realgud/common/shortkey.el
index 17e3aa5..5a31544 100644
--- a/realgud/common/shortkey.el
+++ b/realgud/common/shortkey.el
@@ -14,7 +14,7 @@
(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:follow-mark 'realgud-follow)
(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)
@@ -148,7 +148,7 @@ turned on or off."
(realgud-short-key-mode -1)))))
(defun realgud-populate-src-buffer-map (map)
- "Bind all common keys and menu used in the dbgr src buffers.
+ "Bind all common keys and menu used in src buffers.
This includes the keys bound to `realgud-key-prefix' (typically C-x
C-a)."
(realgud-populate-src-buffer-map-plain map)
@@ -165,7 +165,7 @@ C-a)."
(let* ((loc-hist (realgud-cmdbuf-loc-hist cmdbuf))
(loc (realgud-loc-hist-item-at loc-hist (- num)))
(loc-marker (realgud-loc-marker loc)))
- (realgud:loc-follow loc-marker))
+ (realgud:follow-mark loc-marker))
;; else
(message "No command buffer associated with this buffer")
)))
@@ -173,34 +173,32 @@ C-a)."
(defun realgud:goto-loc-hist-4 ()
"Go to position 4th from the newest position."
- (interactive "")
+ (interactive)
(realgud:goto-loc-hist 4))
(defun realgud:goto-loc-hist-5 ()
"Go to position 5th from the newest position."
- (interactive "")
+ (interactive)
(realgud:goto-loc-hist 5))
(defun realgud:goto-loc-hist-6 ()
- (interactive "")
+ "Go to position 6th from the newest position."
+ (interactive)
(realgud:goto-loc-hist 6))
(defun realgud:goto-loc-hist-7 ()
"Go to position 7th from the newest position."
- (interactive "")
+ (interactive)
(realgud:goto-loc-hist 7))
(defun realgud:goto-loc-hist-8 ()
"Go to position 8th from the newest position."
- (interactive "")
+ (interactive)
(realgud:goto-loc-hist 8))
(defun realgud:goto-loc-hist-9 ()
"Go to position 9th from the newest position."
- (interactive "")
+ (interactive)
(realgud:goto-loc-hist 9))
(provide-me "realgud-")
-
-;;; Local variables:
-;;; End:
- [elpa] master 6429d94 129/215: Revert "Manually generate "recursive" autoloads for subdirectories", (continued)
- [elpa] master 6429d94 129/215: Revert "Manually generate "recursive" autoloads for subdirectories", Rocky Bernstein, 2016/07/30
- [elpa] master 1ff6720 189/215: Merge pull request #127 from realgud/quit-confirm, Rocky Bernstein, 2016/07/30
- [elpa] master 70ead82 184/215: Correct "breakpoint deleted" regexp, Rocky Bernstein, 2016/07/30
- [elpa] master b71750a 193/215: Relax deleted breakpoint regexp in PDB to support Python 2 and 3, Rocky Bernstein, 2016/07/30
- [elpa] master 2f30f42 176/215: Merge pull request #119 from realgud/improve-break-C-u, Rocky Bernstein, 2016/07/30
- [elpa] master cbfa182 203/215: Improve realgud:run-process docstring, Rocky Bernstein, 2016/07/30
- [elpa] master 333a946 104/215: Merge pull request #74 from rocky/ipdb, Rocky Bernstein, 2016/07/30
- [elpa] master 2316417 205/215: Reassign more copyrights to FSF, Rocky Bernstein, 2016/07/30
- [elpa] master 703e087 185/215: Correct cmd capabilities for perldb and trepanjs, Rocky Bernstein, 2016/07/30
- [elpa] master d367cab 196/215: Correct python trepan enable/disable patterns, Rocky Bernstein, 2016/07/30
- [elpa] master 5a84817 178/215: Fix invalid references to realgud:loc-follow,
Rocky Bernstein <=
- [elpa] master 8edfb04 215/215: Not needed for elpa, Rocky Bernstein, 2016/07/30
- [elpa] master d97bf08 179/215: Update doc links, Rocky Bernstein, 2016/07/30
- [elpa] master e4c05b2 208/215: Merge pull request #137 from realgud/gdb-mi-warning, Rocky Bernstein, 2016/07/30
- [elpa] master 78d9901 122/215: Add a "safe mode" setting (on by default), Rocky Bernstein, 2016/07/30
- [elpa] master c49e2b3 204/215: Another small doc change, Rocky Bernstein, 2016/07/30
- [elpa] master 2f8efa3 130/215: Merge pull request #95 from rocky/revert-94-84-fix-autoloads, Rocky Bernstein, 2016/07/30
- [elpa] master 9023ed4 188/215: Confirm on debugger quit., Rocky Bernstein, 2016/07/30
- [elpa] master 703e69c 127/215: Manually generate "recursive" autoloads for subdirectories, Rocky Bernstein, 2016/07/30
- [elpa] master fb3f38b 182/215: A few more link updates (+ small edits in Commentary), Rocky Bernstein, 2016/07/30
- [elpa] master 245ca79 090/215: Redo previous commit handle base-variable determination from debugger name. We now do it via a hash table where entries are set in <debugger>/init.el Cleanup of old code is still needed., Rocky Bernstein, 2016/07/30