# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190766135 0
# Node ID 0306d3c580c6713f17c4f076d7a41ffcf711c7f7
# Parent  db1179979d6bd1ce7e02638ed57e328b6a498f08
(hilit-unhighlight-region, hilit-set-mode-patterns):
Use `mapc' rather than `mapcar'.

diff -r db1179979d6b -r 0306d3c580c6 lisp/obsolete/hilit19.el
--- a/lisp/obsolete/hilit19.el	Wed Sep 26 00:21:38 2007 +0000
+++ b/lisp/obsolete/hilit19.el	Wed Sep 26 00:22:15 2007 +0000
@@ -665,9 +665,9 @@
   (or quietly hilit-quietly (message "Unhighlighting"))
   (let ((lstart 0))
     (while (and start (> start lstart) (< start end))
-      (mapcar (function (lambda (ovr)
-			  (and (overlay-get ovr 'hilit) (delete-overlay ovr))))
-	      (overlays-at start))
+      (mapc (function (lambda (ovr)
+			(and (overlay-get ovr 'hilit) (delete-overlay ovr))))
+	    (overlays-at start))
       (setq lstart start start (next-overlay-change start))))
   (or quietly hilit-quietly (message "Done unhighlighting")))
 
@@ -1023,11 +1023,11 @@
 
 Takes optional arguments PARSE-FN and CASE-FOLD."
   ;; change pattern
-  (mapcar (function (lambda (p)
-		      (and (stringp (car p))
-			   (null (nth 1 p))
-			   (setcar (cdr p) 0))))
-	  patterns)
+  (mapc (function (lambda (p)
+		    (and (stringp (car p))
+			 (null (nth 1 p))
+			 (setcar (cdr p) 0))))
+	patterns)
   (setq patterns (cons case-fold patterns))
 
   (or (consp modelist) (setq modelist (list modelist)))