procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gud-display-line): Switch to gud buffer before calling gud-find-file.

Browse source
This commit is contained in:
Richard M. Stallman 1996-05-02 21:20:55 +00:00
parent f0e1cd3354
commit 36d6372a40
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gud.el
View file

@ -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))