martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Simon Marshall
1996-01-25 10:21:05 +00:00
parent 212b2266cb
commit c28baa2ad8
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/rmailsum.el
View File

@@ -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,