Mercurial > emacs

changeset 36175:09e4cd51e147

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(imenu--generic-function): Use mapc to iterate over syntax characters.
author Dave Love <fx@gnu.org>
date Sun, 18 Feb 2001 16:41:13 +0000
parents 19101dffc5c1
children e65946d745a5
files lisp/imenu.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/imenu.el	Sat Feb 17 22:20:09 2001 +0000
+++ b/lisp/imenu.el	Sun Feb 18 16:41:13 2001 +0000
@@ -795,8 +795,9 @@
       ;; The character(s) to modify may be a single char or a string.
       (if (numberp (caar slist))
 	  (modify-syntax-entry (caar slist) (cdar slist) table)
-	(dolist (c (caar slist))
-	  (modify-syntax-entry c (cdar slist) table)))
+	(mapc (lambda (c)
+		(modify-syntax-entry c (cdar slist) table))
+	      (caar slist)))
       (setq slist (cdr slist)))
     (goto-char (point-max))
     (imenu-progress-message prev-pos 0 t)