]> git.eshelyaron.com Git - emacs.git/commitdiff
(imenu--generic-function): Use mapc.
authorGlenn Morris <rgm@gnu.org>
Tue, 20 Aug 2002 20:23:25 +0000 (20:23 +0000)
committerGlenn Morris <rgm@gnu.org>
Tue, 20 Aug 2002 20:23:25 +0000 (20:23 +0000)
lisp/ChangeLog
lisp/imenu.el

index 76af07968a7b0b63a074361c9413398d380439ef..4f25704b27e2d8c2b46628e5abfdfc868d748d9d 100644 (file)
@@ -1,3 +1,7 @@
+2002-08-20  Glenn Morris  <gmorris@ast.cam.ac.uk>
+
+       * imenu.el (imenu--generic-function): Use mapc.
+
 2002-08-20  Richard M. Stallman  <rms@gnu.org>
 
        * font-core.el (font-lock-change-mode): New function.
index 3b06925c33457a3f6b8530c637acc6cb9bc0db70..34c2ca19beb5393611c69aa69242e3ff4de78206 100644 (file)
@@ -788,8 +788,9 @@ PATTERNS."
       ;; 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