From 473fbd897fc37c0328d4f6142588459dd907afe1 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 17 Apr 1997 07:35:38 +0000 Subject: [PATCH] Use EVAL form for shell-prompt-pattern. --- lisp/shell.el | 8 ++++---- 1 file 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 -- 2.39.2