From 5b89a8c974074c13e762c39575fa75733a00f769 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Tue, 20 Aug 2002 20:23:25 +0000
Subject: [PATCH] (imenu--generic-function): Use mapc.

---
 lisp/ChangeLog | 4 ++++
 lisp/imenu.el  | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76af07968a7..4f25704b27e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/imenu.el b/lisp/imenu.el
index 3b06925c334..34c2ca19beb 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -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
-- 
2.11.4.GIT