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

5044b74a · Sam Steingold · 5dcfb3f4 · 5044b74a · 5044b74a
Commit 5044b74a authored Jul 25, 2000 by Sam Steingold
Show whitespace changes
Inline Side-by-side

Showing with 11 additions and 7 deletions

lisp/ChangeLog lisp/ChangeLog +10 -5

lisp/midnight.el lisp/midnight.el +1 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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