[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113777: * lisp/time.el (display-time-event-handler)
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r113777: * lisp/time.el (display-time-event-handler) |
Date: |
Fri, 09 Aug 2013 18:49:42 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113777
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=15045
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-09 14:49:36 -0400
message:
* lisp/time.el (display-time-event-handler)
(display-time-next-load-average): Don't call sit-for since it seems
unnecessary.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/time.el time.el-20091113204419-o5vbwnq5f7feedwu-143
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-08-09 01:19:42 +0000
+++ b/lisp/ChangeLog 2013-08-09 18:49:36 +0000
@@ -1,5 +1,9 @@
2013-08-09 Stefan Monnier <address@hidden>
+ * 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.
=== modified file 'lisp/time.el'
--- a/lisp/time.el 2013-01-01 09:11:05 +0000
+++ b/lisp/time.el 2013-08-09 18:49:36 +0000
@@ -323,8 +323,6 @@
(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 @@
(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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113777: * lisp/time.el (display-time-event-handler),
Stefan Monnier <=