Mercurial > emacs
comparison lisp/font-lock.el @ 5726:781af712e68c
(font-lock-set-defaults): Handle shell mode.
(shell-font-lock-keywords): New variable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 01 Feb 1994 23:10:41 +0000 |
parents | 24e1180b507d |
children | c870cde64544 |
comparison
equal
deleted
inserted
replaced
5725:45d91f2b3810 | 5726:781af712e68c |
---|---|
435 ((eq major-mode 'c++-c-mode) c-font-lock-keywords) | 435 ((eq major-mode 'c++-c-mode) c-font-lock-keywords) |
436 ((eq major-mode 'c++-mode) c++-font-lock-keywords) | 436 ((eq major-mode 'c++-mode) c++-font-lock-keywords) |
437 ((eq major-mode 'perl-mode) perl-font-lock-keywords) | 437 ((eq major-mode 'perl-mode) perl-font-lock-keywords) |
438 ((eq major-mode 'tex-mode) tex-font-lock-keywords) | 438 ((eq major-mode 'tex-mode) tex-font-lock-keywords) |
439 ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) | 439 ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) |
440 ((eq major-mode 'shell-mode) shell-font-lock-keywords) | |
440 (t nil))))) | 441 (t nil))))) |
441 | 442 |
442 (defconst lisp-font-lock-keywords-1 | 443 (defconst lisp-font-lock-keywords-1 |
443 '(;; | 444 '(;; |
444 ;; highlight defining forms. This doesn't work too nicely for | 445 ;; highlight defining forms. This doesn't work too nicely for |
633 '("@item \\(.*\\)$" 1 font-lock-function-name-face t) | 634 '("@item \\(.*\\)$" 1 font-lock-function-name-face t) |
634 '("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) | 635 '("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) |
635 ) | 636 ) |
636 "Additional expressions to highlight in TeXinfo mode.") | 637 "Additional expressions to highlight in TeXinfo mode.") |
637 | 638 |
639 (defvar shell-font-lock-keywords | |
640 (list (cons shell-prompt-pattern 'font-lock-keyword-face) | |
641 (list (concat shell-prompt-pattern "\\([^ \t]+\\)") | |
642 1 'font-lock-function-name-face) | |
643 '("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face) | |
644 '("^[^ \t]+:.*$" . font-lock-string-face) | |
645 '("^\\[[1-9][0-9]*\\]" . font-lock-string-face)) | |
646 "Additional expressions to highlight in TeXinfo mode.") | |
647 | |
638 (provide 'font-lock) | 648 (provide 'font-lock) |
639 | 649 |
640 ;;; font-lock.el ends here | 650 ;;; font-lock.el ends here |