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

gnus-art.el (gnus-article-stop-animations): Use gnus-timer--function that is an alias to timer--function

Browse Source
This commit is contained in:
Katsumi Yamaoka 2012-09-13 11:14:30 +00:00
parent 4fa924951b
commit 5e2b4ce123
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View File

@ -1,3 +1,9 @@
2012-09-13 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-timer--function): New function.
* gnus-art.el (gnus-article-stop-animations): Use it.
2012-09-13 Paul Eggert <eggert@cs.ucla.edu>
Fix glitches caused by addition of psec to timers.

2
lisp/gnus/gnus-art.el
View File

@ -4554,7 +4554,7 @@ commands:
(defun gnus-article-stop-animations ()
(dolist (timer (and (boundp 'timer-list)
timer-list))
(when (eq (timer--function timer) 'image-animate-timeout)
(when (eq (gnus-timer--function timer) 'image-animate-timeout)
(cancel-timer timer))))
(defun gnus-stop-downloads ()

5
lisp/gnus/gnus-util.el
View File

@ -1964,6 +1964,11 @@ definitions to shadow the loaded ones for use in file byte-compilation."
(defun gnus-bound-and-true-p (sym)
(and (boundp sym) (symbol-value sym)))
(if (fboundp 'timer--function)
(defalias 'gnus-timer--function 'timer--function)
(defun gnus-timer--function (timer)
(elt timer 5)))
(provide 'gnus-util)
;;; gnus-util.el ends here