Mercurial > emacs
changeset 85187:e98988d20549
(hilit-mode): Use mapc rather than mapcar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 12 Oct 2007 03:06:03 +0000 |
| parents | 20ca9ea6e1d1 |
| children | ee803fed3919 |
| files | lisp/obsolete/hilit19.el |
| diffstat | 1 files changed, 15 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/hilit19.el Fri Oct 12 03:05:02 2007 +0000 +++ b/lisp/obsolete/hilit19.el Fri Oct 12 03:06:03 2007 +0000 @@ -975,24 +975,24 @@ (progn ;; BUFFER highlights... - (mapcar (lambda (hook) - (if hilit-mode - (add-hook hook 'hilit-rehighlight-buffer-quietly) - (remove-hook hook 'hilit-rehighlight-buffer-quietly))) - '( - Info-selection-hook + (mapc (lambda (hook) + (if hilit-mode + (add-hook hook 'hilit-rehighlight-buffer-quietly) + (remove-hook hook 'hilit-rehighlight-buffer-quietly))) + '( + Info-selection-hook - ;; runs too early vm-summary-mode-hooks - vm-summary-pointer-hook - vm-preview-message-hook - vm-show-message-hook + ;; runs too early vm-summary-mode-hooks + vm-summary-pointer-hook + vm-preview-message-hook + vm-show-message-hook - rmail-show-message-hook - mail-setup-hook - mh-show-mode-hook + rmail-show-message-hook + mail-setup-hook + mh-show-mode-hook - dired-after-readin-hook - )) + dired-after-readin-hook + )) ) (error (message "Error loading highlight hooks: %s" c) (ding) (sit-for 1)))))