Mercurial > emacs
comparison lisp/font-lock.el @ 5878:044cb853edbd
(lisp-font-lock-keywords-2): Quote the * in let*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Feb 1994 04:43:50 +0000 |
| parents | 412ac1a01f46 |
| children | 00cee8387866 |
comparison
equal
deleted
inserted
replaced
| 5877:321b22a46f7a | 5878:044cb853edbd |
|---|---|
| 463 (append | 463 (append |
| 464 lisp-font-lock-keywords-1 | 464 lisp-font-lock-keywords-1 |
| 465 '(;; | 465 '(;; |
| 466 ;; Highlight control structures | 466 ;; Highlight control structures |
| 467 ("(\\(cond\\|if\\|when\\|unless\\|[ec]?\\(type\\)?case\\)[ \t\n]" . 1) | 467 ("(\\(cond\\|if\\|when\\|unless\\|[ec]?\\(type\\)?case\\)[ \t\n]" . 1) |
| 468 ("(\\(while\\|do\\|let*?\\|flet\\|labels\\|prog[nv12*]?\\)[ \t\n]" . 1) | 468 ("(\\(while\\|do\\|let\\*?\\|flet\\|labels\\|prog[nv12*]?\\)[ \t\n]" . 1) |
| 469 ("(\\(catch\\|\\throw\\|block\\|return\\|return-from\\)[ \t\n]" . 1) | 469 ("(\\(catch\\|\\throw\\|block\\|return\\|return-from\\)[ \t\n]" . 1) |
| 470 ("(\\(save-restriction\\|save-window-restriction\\)[ \t\n]" . 1) | 470 ("(\\(save-restriction\\|save-window-restriction\\)[ \t\n]" . 1) |
| 471 ("(\\(save-excursion\\|unwind-protect\\|condition-case\\)[ \t\n]" . 1) | 471 ("(\\(save-excursion\\|unwind-protect\\|condition-case\\)[ \t\n]" . 1) |
| 472 ;; | 472 ;; |
| 473 ;; highlight function names in emacs-lisp docstrings (in the syntax | 473 ;; highlight function names in emacs-lisp docstrings (in the syntax |