HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f0e1cd3
)
(gud-display-line): Switch to gud buffer before calling gud-find-file.
author
Richard M. Stallman
<rms@gnu.org>
Thu, 2 May 1996 21:20:55 +0000
(21:20 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Thu, 2 May 1996 21:20:55 +0000
(21:20 +0000)
lisp/gud.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/gud.el
b/lisp/gud.el
index
fac0be4
..
b42d9a2
100644
(file)
--- a/
lisp/gud.el
+++ b/
lisp/gud.el
@@
-1318,7
+1318,11
@@
Obeying it means displaying in another window the specified file and line."
(defun gud-display-line (true-file line)
(let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions.
- (buffer (gud-find-file true-file))
+ (buffer
+ (save-excursion
+ (or (eq (current-buffer) gud-comint-buffer)
+ (set-buffer gud-comint-buffer))
+ (gud-find-file true-file)))
(window (display-buffer buffer))
(pos))
;;; (if (equal buffer (current-buffer))