788 |
;; The character(s) to modify may be a single char or a string. |
;; The character(s) to modify may be a single char or a string. |
789 |
(if (numberp (car syn)) |
(if (numberp (car syn)) |
790 |
(modify-syntax-entry (car syn) (cdr syn) table) |
(modify-syntax-entry (car syn) (cdr syn) table) |
791 |
(dolist (c (car syn)) |
(mapc (lambda (c) |
792 |
(modify-syntax-entry c (cdr syn) table)))) |
(modify-syntax-entry c (cdr syn) table)) |
793 |
|
(car syn)))) |
794 |
(goto-char (point-max)) |
(goto-char (point-max)) |
795 |
(imenu-progress-message prev-pos 0 t) |
(imenu-progress-message prev-pos 0 t) |
796 |
(unwind-protect ; for syntax table |
(unwind-protect ; for syntax table |