Mercurial > emacs
changeset 14362:55ffd73831cb
Use make-local-hook for post-command-hook
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Thu, 25 Jan 1996 10:21:05 +0000 |
| parents | fbce2d55fec6 |
| children | 754031d2354f |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Thu Jan 25 07:09:48 1996 +0000 +++ b/lisp/mail/rmailsum.el Thu Jan 25 10:21:05 1996 +0000 @@ -648,7 +648,7 @@ (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 @@ ;; 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,