Mercurial > emacs

changeset 17497:3ee027d263c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use EVAL form for shell-prompt-pattern.
author Simon Marshall <simon@gnu.org>
date Thu, 17 Apr 1997 07:35:38 +0000
parents 4cb9ccf6b6b8
children 5ea11c278a57
files lisp/shell.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/shell.el	Thu Apr 17 07:32:31 1997 +0000
+++ b/lisp/shell.el	Thu Apr 17 07:35:38 1997 +0000
@@ -305,10 +305,10 @@
   :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