Mercurial > emacs

comparison lisp/font-lock.el @ 5726:781af712e68c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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