procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix minor issues after recent world-clock rename

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2020-08-19 20:31:29 +02:00
parent 8c6765b37a
commit 6e3bc3c684
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/time.el
View file

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