diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-09-13 11:14:30 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-09-13 11:14:30 +0000 |
| commit | 5e2b4ce123bf042b3b719b1f776cce3e4db7eadf (patch) | |
| tree | d965718b979098642c5668844c55afa72ef706a6 /lisp/gnus | |
| parent | 4fa924951b55e6b428e852b62d6c8ef3464ea1dd (diff) | |
| download | emacs-5e2b4ce123bf042b3b719b1f776cce3e4db7eadf.tar.gz | |
gnus-art.el (gnus-article-stop-animations): Use gnus-timer--function that is an alias to timer--function
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-util.el | 5 |
3 files changed, 12 insertions, 1 deletions
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 <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. 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 |