mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* lisp/time.el (display-time-event-handler)

Browse Source 
(display-time-next-load-average): Don't call sit-for since it seems
unnecessary.

Fixes: debbugs:15045
This commit is contained in:
Stefan Monnier 2013-08-09 14:49:36 -04:00
parent 309f24d1ec
commit 0ea9e53aa9
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2013-08-09 Stefan Monnier <monnier@iro.umontreal.ca>
* time.el (display-time-event-handler)
(display-time-next-load-average): Don't call sit-for since it seems
unnecessary (bug#15045).
* emacs-lisp/checkdoc.el: Remove redundant :group keywords.
Use #' instead of ' to quote functions.
(checkdoc-output-mode): Use setq-local.

5
lisp/time.el
View File

@ -323,8 +323,6 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
(defun display-time-event-handler ()
(display-time-update)
;; Do redisplay right now, if no input pending.
(sit-for 0)
(let* ((current (current-time))
(timer display-time-timer)
;; Compute the time when this timer will run again, next.
@ -352,8 +350,7 @@ Switches from the 1 to 5 to 15 minute load average, and then back to 1."
(interactive)
(if (= 3 (setq display-time-load-average (1+ display-time-load-average)))
(setq display-time-load-average 0))
(display-time-update)
(sit-for 0))
(display-time-update))
(defun display-time-mail-check-directory ()
(let ((mail-files (directory-files display-time-mail-directory t))