From: Simon Marshall <simon@gnu.org>
Date: Thu, 25 Jan 1996 10:21:05 +0000 (+0000)
Subject: Use make-local-hook for post-command-hook
X-Git-Tag: emacs-19.34~1498
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c28baa2ad84dd83e01a6a7d26cbfe8d4379242ae;p=emacs.git

Use make-local-hook for post-command-hook
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index c0f286a7ce2..919c0ded584 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -648,7 +648,7 @@ Commands for sorting the summary:
   (make-local-variable 'rmail-summary-redo)
   (setq rmail-summary-redo nil)
   (make-local-variable 'revert-buffer-function)
-  (make-local-variable 'post-command-hook)
+  (make-local-hook 'post-command-hook)
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(rmail-summary-font-lock-keywords t))
   (rmail-summary-enable)
@@ -657,12 +657,12 @@ Commands for sorting the summary:
 ;; Summary features need to be disabled during edit mode.
 (defun rmail-summary-disable ()
   (use-local-map text-mode-map)
-  (remove-hook 'post-command-hook 'rmail-summary-rmail-update)
+  (remove-hook 'post-command-hook 'rmail-summary-rmail-update t)
   (setq revert-buffer-function nil))
 
 (defun rmail-summary-enable ()
   (use-local-map rmail-summary-mode-map)
-  (add-hook 'post-command-hook 'rmail-summary-rmail-update)
+  (add-hook 'post-command-hook 'rmail-summary-rmail-update nil t)
   (setq revert-buffer-function 'rmail-update-summary))
 
 ;; Show in Rmail the message described by the summary line that point is on,