[Emacs-diffs] /srv/bzr/emacs/trunk r99954: * vc-dispatcher (vc-finish-logentry): Don't mess with the windows/frames.

[Stefan Monnier]

------------------------------------------------------------
revno: 99954
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2010-04-20 12:52:43 -0400
message:
  * vc-dispatcher (vc-finish-logentry): Don't mess with the windows/frames.
modified:
  lisp/ChangeLog
  lisp/vc-dispatcher.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-04-20 16:37:31 +0000
+++ b/lisp/ChangeLog    2010-04-20 16:52:43 +0000
@@ -1,5 +1,8 @@
 2010-04-20  Stefan Monnier  <address@hidden>
 
+       * vc-dispatcher.el (vc-finish-logentry): Don't mess so badly with the
+       windows/frames.
+
        * emacs-lisp/lisp.el (lisp-completion-at-point): Complete around point.
        I.e. include text after point in the completion region.
        Also, return nil when we're not after/in a symbol.

=== modified file 'lisp/vc-dispatcher.el'
--- a/lisp/vc-dispatcher.el     2010-03-24 03:30:53 +0000
+++ b/lisp/vc-dispatcher.el     2010-04-20 16:52:43 +0000
@@ -599,8 +599,7 @@
        (log-extra vc-log-extra)
        (log-entry (buffer-string))
        (extra-flags log-edit-extra-flags)
-       (after-hook vc-log-after-operation-hook)
-       (tmp-vc-parent-buffer vc-parent-buffer))
+       (after-hook vc-log-after-operation-hook))
     (pop-to-buffer vc-parent-buffer)
     ;; OK, do it to it
     (save-excursion
@@ -617,9 +616,11 @@
           (delete-windows-on logbuf (selected-frame))
           ;; Kill buffer and delete any other dedicated windows/frames.
           (kill-buffer logbuf))
-         (logbuf (pop-to-buffer logbuf)
-                 (bury-buffer)
-                 (pop-to-buffer tmp-vc-parent-buffer)))
+         (logbuf
+           (with-selected-window (or (get-buffer-window logbuf 0)
+                                     (selected-window))
+             (with-current-buffer logbuf
+               (bury-buffer)))))
     ;; Now make sure we see the expanded headers
     (when log-fileset
       (mapc