diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2012-09-12 23:09:45 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2012-09-12 23:09:45 -0700 |
| commit | 72eac303eabbb403eae650c9dd0c93851b0fec23 (patch) | |
| tree | 480b2529cbc787c643be94f462ab4913216e1c1a /lisp/image.el | |
| parent | d59a1afb9acc881201223e7c573e94526b3cd3fc (diff) | |
| download | emacs-72eac303eabbb403eae650c9dd0c93851b0fec23.tar.gz | |
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.
Fixes: debbugs:12430
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/image.el b/lisp/image.el index 7801923c3fe..99c0a74a512 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -645,8 +645,8 @@ number, play until that number of seconds has elapsed." (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)) |