From 5e2b4ce123bf042b3b719b1f776cce3e4db7eadf Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 13 Sep 2012 11:14:30 +0000 Subject: [PATCH] gnus-art.el (gnus-article-stop-animations): Use gnus-timer--function that is an alias to timer--function --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus-art.el | 2 +- lisp/gnus/gnus-util.el | 5 +++++ 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3f69a84db88..69f0025b524 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2012-09-13 Katsumi Yamaoka + + * gnus-util.el (gnus-timer--function): New function. + + * gnus-art.el (gnus-article-stop-animations): Use it. + 2012-09-13 Paul Eggert Fix glitches caused by addition of psec to timers. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 4dc004f04d4..7dcbd61316f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -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 () diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 4c5eabab723..f5e1077f8c4 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -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 -- 2.39.2