From: Simon Marshall <simon@gnu.org>
Date: Thu, 17 Apr 1997 07:35:38 +0000 (+0000)
Subject: Use EVAL form for shell-prompt-pattern.
X-Git-Tag: emacs-20.1~2448
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=473fbd897fc37c0328d4f6142588459dd907afe1;p=emacs.git

Use EVAL form for shell-prompt-pattern.
---

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