[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 35e31c1: Revert "* lisp/calendar/appt.el (appt-activate): Set the
From: |
Stefan Monnier |
Subject: |
master 35e31c1: Revert "* lisp/calendar/appt.el (appt-activate): Set the local `write-file-functions`" |
Date: |
Sun, 14 Mar 2021 11:37:17 -0400 (EDT) |
branch: master
commit 35e31c1e7135c76076c771b153b13044af91bb56
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
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 <gabriel376@hotmail.com>.
---
lisp/calendar/appt.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 281b89e..29bcd6d 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 35e31c1: Revert "* lisp/calendar/appt.el (appt-activate): Set the local `write-file-functions`",
Stefan Monnier <=