diff options
| author | Richard M. Stallman | 1996-05-02 21:20:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-05-02 21:20:55 +0000 |
| commit | 36d6372a4040656aabfbde65ecdfab51c475370c (patch) | |
| tree | 6cdb149f544dd3b3c0a00a3d72d0f161045e4200 | |
| parent | f0e1cd33545b7494c2884f3e8359847bb6cb29d6 (diff) | |
| download | emacs-36d6372a4040656aabfbde65ecdfab51c475370c.tar.gz emacs-36d6372a4040656aabfbde65ecdfab51c475370c.zip | |
(gud-display-line): Switch to gud buffer before calling gud-find-file.
| -rw-r--r-- | lisp/gud.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index fac0be43175..b42d9a20011 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -1318,7 +1318,11 @@ Obeying it means displaying in another window the specified file and line." | |||
| 1318 | 1318 | ||
| 1319 | (defun gud-display-line (true-file line) | 1319 | (defun gud-display-line (true-file line) |
| 1320 | (let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions. | 1320 | (let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions. |
| 1321 | (buffer (gud-find-file true-file)) | 1321 | (buffer |
| 1322 | (save-excursion | ||
| 1323 | (or (eq (current-buffer) gud-comint-buffer) | ||
| 1324 | (set-buffer gud-comint-buffer)) | ||
| 1325 | (gud-find-file true-file))) | ||
| 1322 | (window (display-buffer buffer)) | 1326 | (window (display-buffer buffer)) |
| 1323 | (pos)) | 1327 | (pos)) |
| 1324 | ;;; (if (equal buffer (current-buffer)) | 1328 | ;;; (if (equal buffer (current-buffer)) |