From 6e3bc3c68466c470e1b33c56d9571823fc2b9367 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 19 Aug 2020 20:31:29 +0200 Subject: [PATCH] Fix minor issues after recent world-clock rename * lisp/time.el (world-clock-mode): Set 'revert-buffer-function' buffer-locally rather than globally. (display-time-world): Unobsolete alias for 'world-clock'. Some users might be used to the old name. --- lisp/time.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/time.el b/lisp/time.el index 96b49ddabdd..1ab992adb45 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -421,8 +421,6 @@ runs the normal hook `display-time-hook' after each update." #'world-clock-mode "28.1") (define-obsolete-function-alias 'display-time-world-display #'world-clock-display "28.1") -(define-obsolete-function-alias 'display-time-world - #'world-clock "28.1") (define-obsolete-function-alias 'display-time-world-timer #'world-clock-update "28.1") @@ -522,7 +520,7 @@ If the value is t instead of an alist, use the value of (define-derived-mode world-clock-mode special-mode "World clock" "Major mode for buffer that displays times in various time zones. See `world-clock'." - (setq revert-buffer-function #'world-clock-update) + (setq-local revert-buffer-function #'world-clock-update) (setq show-trailing-whitespace nil)) (defun world-clock-display (alist) @@ -551,6 +549,10 @@ See `world-clock'." (delete-char -1)) (goto-char (point-min))) +;; Old name -- preserved for backwards compatibility. +;;;###autoload +(defalias 'display-time-world #'world-clock) + ;;;###autoload (defun world-clock () "Display a world clock buffer with times in various time zones. -- 2.39.2