diff options
| author | Dave Love | 2001-02-18 16:41:13 +0000 |
|---|---|---|
| committer | Dave Love | 2001-02-18 16:41:13 +0000 |
| commit | c516e98ef48a21c1eaa8b4f36dce9547c961eb46 (patch) | |
| tree | 83da22562647630381b6b704a35c8ae52c45b53b | |
| parent | 446809ab1e73dfbf273fe241127d81a93ee727a3 (diff) | |
| download | emacs-c516e98ef48a21c1eaa8b4f36dce9547c961eb46.tar.gz emacs-c516e98ef48a21c1eaa8b4f36dce9547c961eb46.zip | |
(imenu--generic-function): Use mapc to iterate over
syntax characters.
| -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." | |||
| 795 | ;; The character(s) to modify may be a single char or a string. | 795 | ;; The character(s) to modify may be a single char or a string. |
| 796 | (if (numberp (caar slist)) | 796 | (if (numberp (caar slist)) |
| 797 | (modify-syntax-entry (caar slist) (cdar slist) table) | 797 | (modify-syntax-entry (caar slist) (cdar slist) table) |
| 798 | (dolist (c (caar slist)) | 798 | (mapc (lambda (c) |
| 799 | (modify-syntax-entry c (cdar slist) table))) | 799 | (modify-syntax-entry c (cdar slist) table)) |
| 800 | (caar slist))) | ||
| 800 | (setq slist (cdr slist))) | 801 | (setq slist (cdr slist))) |
| 801 | (goto-char (point-max)) | 802 | (goto-char (point-max)) |
| 802 | (imenu-progress-message prev-pos 0 t) | 803 | (imenu-progress-message prev-pos 0 t) |