[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/log-edit.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/log-edit.el,v |
Date: |
Tue, 26 Jun 2007 16:40:27 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/log-edit.el,v,
Stefan Monnier <=