[Emacs-diffs] Changes to emacs/lisp/gud.el

[Stefan Monnier]

Index: emacs/lisp/gud.el
diff -c emacs/lisp/gud.el:1.174 emacs/lisp/gud.el:1.175
*** emacs/lisp/gud.el:1.174     Tue Feb  4 06:22:06 2003
--- emacs/lisp/gud.el   Mon Feb 10 16:54:08 2003
***************
*** 627,634 ****
    "Run COMMAND, and return the list of lines it outputs.
  BUFFER is the GUD buffer in which to run the command.
  SKIP is the number of chars to skip on each lines, it defaults to 0."
!   (save-excursion
!     (set-buffer buffer)
      (if (save-excursion
          (goto-char (point-max))
          (forward-line 0)
--- 627,633 ----
    "Run COMMAND, and return the list of lines it outputs.
  BUFFER is the GUD buffer in which to run the command.
  SKIP is the number of chars to skip on each lines, it defaults to 0."
!   (with-current-buffer buffer
      (if (save-excursion
          (goto-char (point-max))
          (forward-line 0)
***************
*** 2503,2511 ****
  (defun gud-display-line (true-file line)
    (let* ((last-nonmenu-event t)        ; Prevent use of dialog box for 
questions.
         (buffer
!         (save-excursion
!           (or (eq (current-buffer) gud-comint-buffer)
!               (set-buffer gud-comint-buffer))
            (gud-find-file true-file)))
         (window (and buffer (or (get-buffer-window buffer)
                                 (if (eq gud-minor-mode 'gdba)
--- 2502,2508 ----
  (defun gud-display-line (true-file line)
    (let* ((last-nonmenu-event t)        ; Prevent use of dialog box for 
questions.
         (buffer
!         (with-current-buffer gud-comint-buffer
            (gud-find-file true-file)))
         (window (and buffer (or (get-buffer-window buffer)
                                 (if (eq gud-minor-mode 'gdba)
***************
*** 2514,2521 ****
         (pos))
      (if buffer
        (progn
!         (save-excursion
!           (set-buffer buffer)
            (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer))
                (progn
                  (if
--- 2511,2517 ----
         (pos))
      (if buffer
        (progn
!         (with-current-buffer buffer
            (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer))
                (progn
                  (if