From 3b0f9f620626ad8c13bbfc9b86b1292212f522f5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 26 Sep 2007 00:22:15 +0000 Subject: [PATCH] (hilit-unhighlight-region, hilit-set-mode-patterns): Use `mapc' rather than `mapcar'. --- lisp/obsolete/hilit19.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el index c29d4fad3dd..9221753a864 100644 --- a/lisp/obsolete/hilit19.el +++ b/lisp/obsolete/hilit19.el @@ -665,9 +665,9 @@ The optional 5th arg, PROP is a property to set instead of 'hilit." (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 @@ See the variable hilit-mode-enable-list. 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))) -- 2.39.2