Mercurial > hg > xemacs-beta

comparison lisp/calendar/appt.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 7d55a9ba150c
children 34a5b81f86ba
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
713 'display-time-function 713 'display-time-function
714 'display-time-filter)))) 714 'display-time-filter))))
715 ;; we're about to redefine it... 715 ;; we're about to redefine it...
716 (fset 'old-display-time-filter (symbol-function old-fn)) 716 (fset 'old-display-time-filter (symbol-function old-fn))
717 (fset old-fn 717 (fset old-fn
718 '(lambda (&rest args) ;; ...here's the revised definition 718 (lambda (&rest args) ;; ...here's the revised definition
719 "Revised version of the original function: this version calls a hook." 719 "Revised version of the original function: this version calls a hook."
720 (apply 'old-display-time-filter args) 720 (apply 'old-display-time-filter args)
721 (run-hooks 'display-time-hook))))) 721 (run-hooks 'display-time-hook)))))
722 (setq display-time-hook-installed t) 722 (setq display-time-hook-installed t)
723 (if (fboundp 'add-hook) 723 (if (fboundp 'add-hook)
724 (add-hook 'display-time-hook 'appt-check) 724 (add-hook 'display-time-hook 'appt-check)
725 (setq display-time-hook (cons appt-check display-time-hook))) 725 (setq display-time-hook (cons appt-check display-time-hook)))
726 )) 726 ))