From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 19 Aug 2020 18:31:29 +0000 (+0200)
Subject: Fix minor issues after recent world-clock rename
X-Git-Tag: emacs-28.0.90~6500
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e3bc3c68466c470e1b33c56d9571823fc2b9367;p=emacs.git

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

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.