mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use EVAL form for shell-prompt-pattern.

Browse source
This commit is contained in:
Simon Marshall 1997-04-17 07:35:38 +00:00
parent 94d175889a
commit 473fbd897f
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/shell.el
View file

@ -305,10 +305,10 @@ Thus, this does not include the shell's current directory.")
:group 'shell)
(defvar shell-font-lock-keywords
(list (cons shell-prompt-pattern 'font-lock-keyword-face)
'("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face)
'("^[^ \t\n]+:.*" . font-lock-string-face)
'("^\\[[1-9][0-9]*\\]" . font-lock-string-face))
'((eval . (cons shell-prompt-pattern 'font-lock-warning-face))
("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face)
("^[^ \t\n]+:.*" . font-lock-string-face)
("^\\[[1-9][0-9]*\\]" . font-lock-string-face))
"Additional expressions to highlight in Shell mode.")
;;; Basic Procedures