From 5a9391c6bebb2441d3cdabc993ed4bff5a134f5f Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 26 Jun 2011 23:31:41 +0200 Subject: [PATCH] Make the timer warning go away on XEmacs. --- lisp/ChangeLog | 2 ++ lisp/dgnushack.el | 1 + lisp/gnus-art.el | 3 ++- 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ad363269c..171806af8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2011-06-26 Lars Magne Ingebrigtsen + * dgnushack.el: Make the timer warning go away on XEmacs. + * gnus-art.el (gnus-article-stop-animations): New function to stop any animations going on at article exit time. diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index c82df3ff1..5141a00ad 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -238,6 +238,7 @@ (defalias 'replace-dehighlight 'ignore) (defalias 'replace-highlight 'ignore) (defalias 'gnutls-available-p 'ignore) + (defvar timer-list nil) (defalias 'w3-coding-system-for-mime-charset 'ignore))) (defun dgnushack-emacs-compile-defcustom-p () diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index eca4debde..6c3ad01ea 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4535,7 +4535,8 @@ commands: (current-buffer))))) (defun gnus-article-stop-animations () - (dolist (timer timer-list) + (dolist (timer (and (boundp 'timer-list) + timer-list)) (when (eq (aref timer 5) 'image-animate-timeout) (cancel-timer timer)))) -- 2.25.1