# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192158363 0
# Node ID e98988d20549b8cd45ebc7f1578e09bbd56b71fb
# Parent  20ca9ea6e1d108ecd23589666b5beb2df4c7ace5
(hilit-mode): Use mapc rather than mapcar.

diff -r 20ca9ea6e1d1 -r e98988d20549 lisp/obsolete/hilit19.el
--- 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)))))