From ee44464cb40474d96920528f5bfdca35e35adc2a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:07:41 +0000 Subject: [PATCH] (hi-lock-write-interactive-patterns): Use `mapc' rather than `mapcar'. --- lisp/hi-lock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index b5e62e7a909..d65dd01ee1c 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -309,7 +309,7 @@ called interactively, are: Write active REGEXPs into buffer as comments (if possible). They may be read the next time file is loaded or when the \\[hi-lock-find-patterns] command is issued. The inserted regexps are in the form of font lock keywords. - (See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns], + (See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns], any valid `font-lock-keywords' form is acceptable. When a file is loaded the patterns are read if `hi-lock-file-patterns-policy is 'ask and the user responds y to the prompt, or if @@ -515,7 +515,7 @@ be found in variable `hi-lock-interactive-patterns'." (if (null hi-lock-interactive-patterns) (error "There are no interactive patterns")) (let ((beg (point))) - (mapcar + (mapc (lambda (pattern) (insert (format "%s: (%s)\n" hi-lock-file-patterns-prefix -- 2.39.2