Mercurial > emacs

changeset 46977:54ce0e6e293f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(imenu--generic-function): Use mapc.
author Glenn Morris <rgm@gnu.org>
date Tue, 20 Aug 2002 20:21:00 +0000
parents abdfba946eef
children b2363b1b2b31
files lisp/imenu.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/imenu.el	Tue Aug 20 17:28:55 2002 +0000
+++ b/lisp/imenu.el	Tue Aug 20 20:21:00 2002 +0000
@@ -788,8 +788,9 @@
       ;; The character(s) to modify may be a single char or a string.
       (if (numberp (car syn))
 	  (modify-syntax-entry (car syn) (cdr syn) table)
-	(dolist (c (car syn))
-	  (modify-syntax-entry c (cdr syn) table))))
+        (mapc (lambda (c)
+                (modify-syntax-entry c (cdr syn) table))
+              (car syn))))
     (goto-char (point-max))
     (imenu-progress-message prev-pos 0 t)
     (unwind-protect			; for syntax table