diff options
| author | Simon Marshall <simon@gnu.org> | 1997-04-17 07:35:38 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1997-04-17 07:35:38 +0000 |
| commit | d04ad05e0e66eb06b9d6d68b01241bd506382dc4 (patch) | |
| tree | d181f04ef324ceaa5feb777f103a9d465932c6ba /lisp/shell.el | |
| parent | 50d074e835640d78643c68106c91ae381fc87b1f (diff) | |
| download | emacs-d04ad05e0e66eb06b9d6d68b01241bd506382dc4.tar.gz | |
Use EVAL form for shell-prompt-pattern.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 690ff34fc2c..66a5653cbdb 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -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 |