1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

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

This commit is contained in:
Richard M. Stallman 1996-05-02 21:20:55 +00:00
parent f0e1cd3354
commit 36d6372a40

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