emacs-diffs
[Top][All Lists]
Advanced

[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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]