martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(shell-font-lock-keywords): New variable.

Browse Source 
(shell-mode): Set font-lock-keywords locally.
This commit is contained in:
Richard M. Stallman
1994-10-07 10:04:06 +00:00
parent a1f6b0c60b
commit 5945a1f78f
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/shell.el
View File

@@ -271,6 +271,12 @@ Thus, this does not include the shell's current directory.")
(defvar shell-mode-hook '()
"*Hook for customising Shell mode.")
(defvar shell-font-lock-keywords
(list (cons shell-prompt-pattern 'font-lock-keyword-face)
'("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face)
'("^[^ \t]+:.*$" . font-lock-string-face)
'("^\\[[1-9][0-9]*\\]" . font-lock-string-face))
"Additional expressions to highlight in Shell mode.")
;;; Basic Procedures
;;; ===========================================================================
@@ -331,6 +337,8 @@ buffer."
(setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
(make-local-variable 'paragraph-start)
(setq paragraph-start comint-prompt-regexp)
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords shell-font-lock-keywords)
(make-local-variable 'shell-dirstack)
(setq shell-dirstack nil)
(setq shell-last-dir nil)