[Emacs-diffs] Changes to emacs/lisp/log-edit.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/06/26 16:40:27

Index: log-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/log-edit.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- log-edit.el 29 May 2007 23:19:42 -0000      1.41
+++ log-edit.el 26 Jun 2007 16:40:26 -0000      1.42
@@ -590,7 +590,6 @@
   (LOGBUFFER (ENTRYSTART . ENTRYEND) ...)
 where LOGBUFFER is the name of the ChangeLog buffer, and each
 \(ENTRYSTART . ENTRYEND\) pair is a buffer region."
-  (save-excursion
     (let ((changelog-file-name
           (let ((default-directory
                   (file-name-directory (expand-file-name file)))
@@ -600,15 +599,14 @@
             (if (and visiting-buffer
                      (local-variable-p 'change-log-default-name
                                        visiting-buffer))
-                (save-excursion
-                  (set-buffer visiting-buffer)
+               (with-current-buffer visiting-buffer
                   change-log-default-name)
               ;; `find-change-log' uses `change-log-default-name' if set
               ;; and sets it before exiting, so we need to work around
               ;; that memoizing which is undesired here
               (setq change-log-default-name nil)
               (find-change-log)))))
-      (set-buffer (find-file-noselect changelog-file-name))
+    (with-current-buffer (find-file-noselect changelog-file-name)
       (unless (eq major-mode 'change-log-mode) (change-log-mode))
       (goto-char (point-min))
       (if (looking-at "\\s-*\n") (goto-char (match-end 0)))