From c516e98ef48a21c1eaa8b4f36dce9547c961eb46 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 18 Feb 2001 16:41:13 +0000 Subject: (imenu--generic-function): Use mapc to iterate over syntax characters. --- lisp/imenu.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/imenu.el b/lisp/imenu.el index 3a9a01b3df9..440758693e8 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -795,8 +795,9 @@ PATTERNS." ;; 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) -- cgit v1.2.1