Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(imenu--generic-function): Use mapc to iterate over

Browse source 
syntax characters.
This commit is contained in:
Dave Love 2001-02-18 16:41:13 +00:00
parent 446809ab1e
commit c516e98ef4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/imenu.el
View file

@ -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)