diff options
| author | Dave Love <fx@gnu.org> | 2001-02-18 16:41:13 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-02-18 16:41:13 +0000 |
| commit | c516e98ef48a21c1eaa8b4f36dce9547c961eb46 (patch) | |
| tree | 83da22562647630381b6b704a35c8ae52c45b53b /lisp/imenu.el | |
| parent | 446809ab1e73dfbf273fe241127d81a93ee727a3 (diff) | |
| download | emacs-c516e98ef48a21c1eaa8b4f36dce9547c961eb46.tar.gz | |
(imenu--generic-function): Use mapc to iterate over
syntax characters.
Diffstat (limited to 'lisp/imenu.el')
| -rw-r--r-- | lisp/imenu.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |