(hilit-mode): Use mapc rather than mapcar.

1 files changed, 18 insertions, 18 deletions

diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el
index 9221753a864..be0b5d622a2 100644
--- a/lisp/obsolete/hilit19.el
+++ b/lisp/obsolete/hilit19.el
@@ -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
-
-                    ;; 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
-
-                    dired-after-readin-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
+
+                  rmail-show-message-hook
+                  mail-setup-hook
+                  mh-show-mode-hook
+
+                  dired-after-readin-hook
+                  ))
           )
       (error (message "Error loading highlight hooks: %s" c)
              (ding) (sit-for 1)))))