mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 04:10:54 -08:00
(hilit-mode): Use mapc rather than mapcar.
This commit is contained in:
parent
5701a0ce21
commit
1663d0b8f8
2 changed files with 22 additions and 15 deletions
|
|
@ -1,5 +1,12 @@
|
|||
2007-10-12 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* emacs-lisp/byte-opt.el (top level):
|
||||
* mail/rmail.el (rmail-list-to-menu):
|
||||
* obsolete/hilit19.el (hilit-mode):
|
||||
* progmodes/cc-mode.el (c-postprocess-file-styles)
|
||||
(c-submit-bug-report):
|
||||
* vc-mcvs.el (vc-mcvs-checkin): Use mapc rather than mapcar.
|
||||
|
||||
* cus-edit.el (custom-variable-menu, custom-face-menu)
|
||||
(custom-group-menu): Check init-file-user rather than
|
||||
user-init-file, in case cus-edit is loaded by site-run-file.
|
||||
|
|
|
|||
|
|
@ -975,24 +975,24 @@ the entire buffer is forced."
|
|||
(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)))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue