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 |