midnight-buffer-display-time: use with-current-buffer

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc94cc34ce4f3a1cbf5bdab92bee4c40e9dc0d66..54957fb9b1bdc1ad76faf0f8138f1be2d2cd0568 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-25  Sam Steingold  <sds@gnu.org>
+
+       * midnight.el (midnight-buffer-display-time): Use
+       `with-current-buffer'.
+
 2000-07-25  Gerd Moellmann  <gerd@gnu.org>
 
        * find-dired.el: Update copyright notice.
@@ -113,7 +118,7 @@
 
 2000-07-24  Martin Stjernholm  <bug-cc-mode@gnu.org>
 
-       * cc-mode.texi Documented the change of cpp-macro. 
+       * cc-mode.texi Documented the change of cpp-macro.
 
 2000-07-24  Martin Stjernholm  <bug-cc-mode@gnu.org>
 
@@ -125,7 +130,7 @@
        c-guess-basic-syntax): Fixed recognition of inheritance lists
        when the lines begins with a comma.
 
-       * cc-mode.texi: Updated doc for c-lineup-multi-inher. 
+       * cc-mode.texi: Updated doc for c-lineup-multi-inher.
 
        * cc-vars.el (c-offsets-alist): Changed default for
        member-init-cont to c-lineup-multi-inher since it now handles
@@ -274,7 +279,7 @@
        c-special-indent-hook as a style variable.  Don't talk about
        doing (c-make-styles-buffer-local t) in a mode hook, since
        that's already too late to work right.
-       
+
        * cc-styles.el (c-make-styles-buffer-local): Flag style
        variable localness in c-style-variables-are-local-p to make
        the compatibility measure in c-common-init work well.
@@ -476,13 +481,13 @@
        (ada-prj-load-from-file): New function
        (ada-prj-save): Always save fields that depend on the current buffer
        (ada-prj-show-value): New function
-       
+
        * ada-stmt.el (ada-stmt-add-to-ada-menu): Hide the menu if not in
        Ada mode. This will allow us to display the Ada menu in any buffer
        we want (for project items).
        (ada-header-tmpl): Use ada-fill-comment-prefix to put the correct
        number of spaces in the header.
-       
+
 2000-07-24  Dave Love  <fx@gnu.org>
 
        * ediff-init.el (ediff-region-help-echo): Bind face-help.

diff --git a/lisp/midnight.el b/lisp/midnight.el
index 445a456be8eab67ad90b6d41bf618096570b27bb..2c05ad14d19951c98ed8d6063dba86466d8ab0fa 100644 (file)
--- a/lisp/midnight.el
+++ b/lisp/midnight.el
@@ -76,8 +76,7 @@ call `cancel-timer' or `timer-activate' on `midnight-timer' instead."
 
 (defun midnight-buffer-display-time (&optional buf)
   "Return the time-stamp of the given buffer, or current buffer, as float."
-  (save-excursion
-    (set-buffer (or buf (current-buffer)))
+  (with-current-buffer (or buf (current-buffer))
     (when buffer-display-time (midnight-float-time buffer-display-time))))
 
 ;;; clean-buffer-list stuff