[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el |
Date: |
Sun, 24 Aug 2003 16:41:39 -0400 |
Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.4 emacs/lisp/progmodes/gud.el:1.5
*** emacs/lisp/progmodes/gud.el:1.4 Mon Jul 28 02:27:09 2003
--- emacs/lisp/progmodes/gud.el Sun Aug 24 16:41:39 2003
***************
*** 2524,2549 ****
(if buffer
(progn
(with-current-buffer buffer
! (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer))
! (progn
! (if
! (yes-or-no-p
(format "File %s changed on disk. Reread from disk? "
(buffer-name)))
(revert-buffer t t)
! (setq gud-keep-buffer t))))
(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)
--- 2524,2547 ----
(if buffer
(progn
(with-current-buffer buffer
! (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer)
! (if (yes-or-no-p
(format "File %s changed on disk. Reread from disk? "
(buffer-name)))
(revert-buffer t t)
! (setq gud-keep-buffer t)))
(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))))
! (if window (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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el,
Nick Roberts <=