[Emacs-diffs] emacs/lisp ChangeLog progmodes/gud.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/27 19:32:01

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : gud.el 

Log message:
        (gud-basic-call): Don't only save the buffer but the excursion as well.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16756&r2=1.16757
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gud.el?cvsroot=emacs&r1=1.174&r2=1.175

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16756
retrieving revision 1.16757
diff -u -b -r1.16756 -r1.16757
--- ChangeLog   27 Nov 2009 16:29:03 -0000      1.16756
+++ ChangeLog   27 Nov 2009 19:31:57 -0000      1.16757
@@ -1,3 +1,8 @@
+2009-11-27  Stefan Monnier  <address@hidden>
+
+       * progmodes/gud.el (gud-basic-call): Don't only save the buffer but
+       the excursion as well.
+
 2009-11-27  Michael Albinus  <address@hidden>
 
        * eshell/em-unix.el (eshell/su, eshell/sudo): New defuns,
@@ -17,7 +22,8 @@
        * man.el (Man-completion-table): Trim a terminating "(".
        Remove the space between name page a section.
        Add the command's description on the `help-echo' property.
-       Remove `process-connection-type' binding since it's unused by 
call-process.
+       Remove `process-connection-type' binding since it's unused by
+       call-process.
        Provide completion for the "<section> <name>" format as well.
        (Man-default-man-entry): Remove spurious var shadowing the argument.
 

Index: progmodes/gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.174
retrieving revision 1.175
diff -u -b -r1.174 -r1.175
--- progmodes/gud.el    11 Nov 2009 05:49:14 -0000      1.174
+++ progmodes/gud.el    27 Nov 2009 19:32:00 -0000      1.175
@@ -2832,6 +2832,7 @@
     (or proc (error "Current buffer has no process"))
     ;; Arrange for the current prompt to get deleted.
     (with-current-buffer gud-comint-buffer
+      (save-excursion
       (save-restriction
        (widen)
        (if (marker-position gud-delete-prompt-marker)
@@ -2843,7 +2844,7 @@
            (set-marker gud-delete-prompt-marker (point)))
        (if (eq gud-minor-mode 'gdbmi)
            (apply comint-input-sender (list proc command))
-         (process-send-string proc (concat command "\n")))))))
+            (process-send-string proc (concat command "\n"))))))))
 
 (defun gud-refresh (&optional arg)
   "Fix up a possibly garbled display, and redraw the arrow."