master 6e3bc3c: Fix minor issues after recent world-clock rename

[Stefan Kangas]

branch: master
commit 6e3bc3c68466c470e1b33c56d9571823fc2b9367
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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 96b49dd..1ab992a 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.