Mercurial > emacs
comparison lisp/emacs-lisp/generic.el @ 84901:c22466a5f332
(generic-mode-internal): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:14:38 +0000 |
| parents | 935157c0b596 |
| children | 107ccd98fa12 bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 84900:38183e606be5 | 84901:c22466a5f332 |
|---|---|
| 203 (push (concat "\\_<" (regexp-opt keyword-list t) "\\_>") | 203 (push (concat "\\_<" (regexp-opt keyword-list t) "\\_>") |
| 204 generic-font-lock-keywords)) | 204 generic-font-lock-keywords)) |
| 205 (setq font-lock-defaults '(generic-font-lock-keywords)) | 205 (setq font-lock-defaults '(generic-font-lock-keywords)) |
| 206 | 206 |
| 207 ;; Call a list of functions | 207 ;; Call a list of functions |
| 208 (mapcar 'funcall function-list) | 208 (mapc 'funcall function-list) |
| 209 | 209 |
| 210 (run-mode-hooks mode-hook))) | 210 (run-mode-hooks mode-hook))) |
| 211 | 211 |
| 212 ;;;###autoload | 212 ;;;###autoload |
| 213 (defun generic-mode (mode) | 213 (defun generic-mode (mode) |