mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(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) (defun gud-display-line (true-file line)
(let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions. (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)) (window (display-buffer buffer))
(pos)) (pos))
;;; (if (equal buffer (current-buffer)) ;;; (if (equal buffer (current-buffer))