From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 03:07:02 +0000 (+0000)
Subject: (hilit-mode): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10405
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1663d0b8f8ec5ba33ea9b04664a40343674cf9fa;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df0bb34172a..2fed711f6d7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
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)))))