Mercurial > emacs
changeset 15796:0cddfd1a946e
(gud-display-line): Don't crash if BUFFER is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 28 Jul 1996 02:20:21 +0000 |
| parents | 2f51ebe36ab0 |
| children | 24c31fcbcf97 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 17 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Sun Jul 28 00:48:42 1996 +0000 +++ b/lisp/gud.el Sun Jul 28 02:20:21 1996 +0000 @@ -1355,22 +1355,24 @@ (or (eq (current-buffer) gud-comint-buffer) (set-buffer gud-comint-buffer)) (gud-find-file true-file))) - (window (display-buffer buffer)) + (window (and buffer (display-buffer buffer))) (pos)) - (save-excursion - (set-buffer buffer) - (save-restriction - (widen) - (goto-line line) - (setq pos (point)) - (setq overlay-arrow-string "=>") - (or overlay-arrow-position - (setq overlay-arrow-position (make-marker))) - (set-marker overlay-arrow-position (point) (current-buffer))) - (cond ((or (< pos (point-min)) (> pos (point-max))) - (widen) - (goto-char pos)))) - (set-window-point window overlay-arrow-position))) + (if buffer + (progn + (save-excursion + (set-buffer buffer) + (save-restriction + (widen) + (goto-line line) + (setq pos (point)) + (setq overlay-arrow-string "=>") + (or overlay-arrow-position + (setq overlay-arrow-position (make-marker))) + (set-marker overlay-arrow-position (point) (current-buffer))) + (cond ((or (< pos (point-min)) (> pos (point-max))) + (widen) + (goto-char pos)))) + (set-window-point window overlay-arrow-position))))) ;;; The gud-call function must do the right thing whether its invoking ;;; keystroke is from the GUD buffer itself (via major-mode binding)