Mercurial > emacs
diff lisp/gnus/gnus-start.el @ 60824:58727a5c98c4
(gnus-display-time-event-handler):
Check display-time-timer at runtime rather than only at load time
in case display-time-mode is turned off in the mean time.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 22 Mar 2005 18:48:38 +0000 |
| parents | aac0a33f5772 |
| children | 88db2adda4b7 13796b0653c7 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el Tue Mar 22 17:19:14 2005 +0000 +++ b/lisp/gnus/gnus-start.el Tue Mar 22 18:48:38 2005 +0000 @@ -1,5 +1,5 @@ ;;; gnus-start.el --- startup functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -3083,12 +3083,10 @@ (file-name-as-directory (expand-file-name gnus-default-directory)) default-directory))) -(eval-and-compile -(defalias 'gnus-display-time-event-handler - (if (gnus-boundp 'display-time-timer) - 'display-time-event-handler - (lambda () "Does nothing as `display-time-timer' is not bound. -Would otherwise be an alias for `display-time-event-handler'." nil)))) +(defun gnus-display-time-event-handler () + (if (and (fboundp 'display-time-event-handler) + (gnus-boundp 'display-time-timer)) + (display-time-event-handler))) ;;;###autoload (defun gnus-fixup-nnimap-unread-after-getting-new-news () @@ -3107,7 +3105,7 @@ (provide 'gnus-start) -;;; arch-tag: f4584a22-b7b7-4853-abfc-a637329af5d2 +;; arch-tag: f4584a22-b7b7-4853-abfc-a637329af5d2 ;;; gnus-start.el ends here