From 5044b74a7b8053a5c18b050b21b829582c36dcf0 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 25 Jul 2000 21:38:34 +0000 Subject: [PATCH] midnight-buffer-display-time: use with-current-buffer --- lisp/ChangeLog | 15 ++++++++++----- lisp/midnight.el | 3 +-- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc94cc34ce4..54957fb9b1b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-07-25 Sam Steingold + + * midnight.el (midnight-buffer-display-time): Use + `with-current-buffer'. + 2000-07-25 Gerd Moellmann * find-dired.el: Update copyright notice. @@ -113,7 +118,7 @@ 2000-07-24 Martin Stjernholm - * cc-mode.texi Documented the change of cpp-macro. + * cc-mode.texi Documented the change of cpp-macro. 2000-07-24 Martin Stjernholm @@ -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 * ediff-init.el (ediff-region-help-echo): Bind face-help. diff --git a/lisp/midnight.el b/lisp/midnight.el index 445a456be8e..2c05ad14d19 100644 --- 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 -- 2.39.2