Commit 5044b74a authored by Sam Steingold's avatar Sam Steingold
Browse files

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

parent 5dcfb3f4
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> 2000-07-25 Gerd Moellmann <gerd@gnu.org>
   
* find-dired.el: Update copyright notice. * find-dired.el: Update copyright notice.
......
...@@ -76,8 +76,7 @@ call `cancel-timer' or `timer-activate' on `midnight-timer' instead." ...@@ -76,8 +76,7 @@ call `cancel-timer' or `timer-activate' on `midnight-timer' instead."
(defun midnight-buffer-display-time (&optional buf) (defun midnight-buffer-display-time (&optional buf)
"Return the time-stamp of the given buffer, or current buffer, as float." "Return the time-stamp of the given buffer, or current buffer, as float."
(save-excursion (with-current-buffer (or buf (current-buffer))
(set-buffer (or buf (current-buffer)))
(when buffer-display-time (midnight-float-time buffer-display-time)))) (when buffer-display-time (midnight-float-time buffer-display-time))))
;;; clean-buffer-list stuff ;;; clean-buffer-list stuff
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment