[Emacs-diffs] Changes to emacs/lisp/obsolete/hilit19.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:22:15

Index: hilit19.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/obsolete/hilit19.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- hilit19.el  26 Jul 2007 05:27:20 -0000      1.15
+++ hilit19.el  26 Sep 2007 00:22:15 -0000      1.16
@@ -665,7 +665,7 @@
   (or quietly hilit-quietly (message "Unhighlighting"))
   (let ((lstart 0))
     (while (and start (> start lstart) (< start end))
-      (mapcar (function (lambda (ovr)
+      (mapc (function (lambda (ovr)
                          (and (overlay-get ovr 'hilit) (delete-overlay ovr))))
              (overlays-at start))
       (setq lstart start start (next-overlay-change start))))
@@ -1023,7 +1023,7 @@
 
 Takes optional arguments PARSE-FN and CASE-FOLD."
   ;; change pattern
-  (mapcar (function (lambda (p)
+  (mapc (function (lambda (p)
                      (and (stringp (car p))
                           (null (nth 1 p))
                           (setcar (cdr p) 0))))