[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110009: Fix glitches caused by addit
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110009: Fix glitches caused by addition of psec to timers. |
Date: |
Wed, 12 Sep 2012 23:09:45 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110009
fixes bug: http://debbugs.gnu.org/12430
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Wed 2012-09-12 23:09:45 -0700
message:
Fix glitches caused by addition of psec to timers.
* etc/NEWS: Document timer format change.
* lisp/image.el (image-animate-timer):
* lisp/time.el (display-time-world-timer):
Use timer--function and timer--args rather than raw access to
timer vector.
* lisp/gnus/gnus-art.el (gnus-article-stop-animations):
Use timer--function rather than raw access to timer vector.
modified:
etc/ChangeLog
etc/NEWS
lisp/ChangeLog
lisp/gnus/ChangeLog
lisp/gnus/gnus-art.el
lisp/image.el
lisp/time.el
=== modified file 'etc/ChangeLog'
--- a/etc/ChangeLog 2012-09-11 02:28:27 +0000
+++ b/etc/ChangeLog 2012-09-13 06:09:45 +0000
@@ -1,3 +1,7 @@
+2012-09-13 Paul Eggert <address@hidden>
+
+ * NEWS: Document timer format change (Bug#12430).
+
2012-09-11 Paul Eggert <address@hidden>
Simplify, document, and port floating-point (Bug#12381).
=== modified file 'etc/NEWS'
--- a/etc/NEWS 2012-09-12 19:16:36 +0000
+++ b/etc/NEWS 2012-09-13 06:09:45 +0000
@@ -101,6 +101,11 @@
file-attributes and format-time-string, have been changed accordingly.
Old-format time stamps are still accepted.
+** The format of timers in timer-list and timer-idle-list is now
+[HIGH-SECONDS LOW-SECONDS USECS PSECS REPEAT-DELAY FUNCTION ARGS IDLE-DELAY].
+The PSECS slot is new, and uses picosecond resolution. It can be
+accessed via the new timer--psecs accessor.
+
** Emacs now generates backtraces on fatal errors.
On encountering a fatal error, Emacs now outputs a textual description
of the fatal signal, and a short backtrace on platforms like glibc
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-09-13 02:41:46 +0000
+++ b/lisp/ChangeLog 2012-09-13 06:09:45 +0000
@@ -1,3 +1,11 @@
+2012-09-13 Paul Eggert <address@hidden>
+
+ Fix glitches caused by addition of psec to timers (Bug#12430).
+ * image.el (image-animate-timer):
+ * time.el (display-time-world-timer):
+ Use timer--function and timer--args rather than raw access to
+ timer vector.
+
2012-09-13 Glenn Morris <address@hidden>
* emacs-lisp/bytecomp.el (byte-compile-warning-prefix):
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2012-09-11 10:08:59 +0000
+++ b/lisp/gnus/ChangeLog 2012-09-13 06:09:45 +0000
@@ -1,3 +1,9 @@
+2012-09-13 Paul Eggert <address@hidden>
+
+ Fix glitches caused by addition of psec to timers.
+ * gnus-art.el (gnus-article-stop-animations): Use timer--function
+ rather than raw access to timer vector.
+
2012-09-11 Julien Danjou <address@hidden>
* gnus-notifications.el (gnus-notifications): Check for nil values in
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2012-08-14 05:34:20 +0000
+++ b/lisp/gnus/gnus-art.el 2012-09-13 06:09:45 +0000
@@ -4554,7 +4554,7 @@
(defun gnus-article-stop-animations ()
(dolist (timer (and (boundp 'timer-list)
timer-list))
- (when (eq (elt timer 5) 'image-animate-timeout)
+ (when (eq (timer--function timer) 'image-animate-timeout)
(cancel-timer timer))))
(defun gnus-stop-downloads ()
=== modified file 'lisp/image.el'
--- a/lisp/image.el 2012-08-15 16:29:11 +0000
+++ b/lisp/image.el 2012-09-13 06:09:45 +0000
@@ -645,8 +645,8 @@
(while tail
(setq timer (car tail)
tail (cdr tail))
- (if (and (eq (aref timer 5) 'image-animate-timeout)
- (eq (car-safe (aref timer 6)) image))
+ (if (and (eq (timer--function timer) 'image-animate-timeout)
+ (eq (car-safe (timer--args timer)) image))
(setq tail nil)
(setq timer nil)))
timer))
=== modified file 'lisp/time.el'
--- a/lisp/time.el 2012-05-04 06:13:18 +0000
+++ b/lisp/time.el 2012-09-13 06:09:45 +0000
@@ -575,7 +575,8 @@
(let ((list timer-list))
(while list
(let ((elt (pop list)))
- (when (equal (symbol-name (aref elt 5)) "display-time-world-timer")
+ (when (equal (symbol-name (timer--function elt))
+ "display-time-world-timer")
(cancel-timer elt)))))))
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110009: Fix glitches caused by addition of psec to timers.,
Paul Eggert <=