From: Stefan Monnier Date: Sun, 14 Mar 2021 15:35:55 +0000 (-0400) Subject: Revert "* lisp/calendar/appt.el (appt-activate): Set the local `write-file-functions`" X-Git-Tag: emacs-28.0.90~3278 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35e31c1e7135c76076c771b153b13044af91bb56;p=emacs.git Revert "* lisp/calendar/appt.el (appt-activate): Set the local `write-file-functions`" This reverts commit 587a97bcb23bc6ea429ab790efa03f2260a9bca8. We really do want to affect the global part of the hook. Reported by Gabriel . --- diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 281b89e088f..29bcd6de2ce 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -700,7 +700,7 @@ ARG is positive, otherwise off." (let ((appt-active appt-timer)) (setq appt-active (if arg (> (prefix-numeric-value arg) 0) (not appt-active))) - (remove-hook 'write-file-functions #'appt-update-list 'local) + (remove-hook 'write-file-functions #'appt-update-list) (or global-mode-string (setq global-mode-string '(""))) (delq 'appt-mode-string global-mode-string) (when appt-timer @@ -708,7 +708,7 @@ ARG is positive, otherwise off." (setq appt-timer nil)) (if appt-active (progn - (add-hook 'write-file-functions #'appt-update-list nil t) + (add-hook 'write-file-functions #'appt-update-list) (setq appt-timer (run-at-time t 60 #'appt-check) global-mode-string (append global-mode-string '(appt-mode-string)))