From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Oct 1994 10:04:06 +0000 (+0000)
Subject: (shell-font-lock-keywords): New variable.
X-Git-Tag: emacs-19.34~6471
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5945a1f78f38ca5ee6f8b45f41c4fa32745a41b9;p=emacs.git

(shell-font-lock-keywords): New variable.

(shell-mode): Set font-lock-keywords locally.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index becd26f65b0..594ea0bf444 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -271,6 +271,12 @@ Thus, this does not include the shell's current directory.")
 (defvar shell-mode-hook '()
   "*Hook for customising Shell mode.")
 
+(defvar shell-font-lock-keywords
+  (list (cons shell-prompt-pattern 'font-lock-keyword-face)
+	'("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face)
+	'("^[^ \t]+:.*$" . font-lock-string-face)
+	'("^\\[[1-9][0-9]*\\]" . font-lock-string-face))
+  "Additional expressions to highlight in Shell mode.")
 
 ;;; Basic Procedures
 ;;; ===========================================================================
@@ -331,6 +337,8 @@ buffer."
   (setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
   (make-local-variable 'paragraph-start)
   (setq paragraph-start comint-prompt-regexp)
+  (make-local-variable 'font-lock-keywords)
+  (setq font-lock-keywords shell-font-lock-keywords)
   (make-local-variable 'shell-dirstack)
   (setq shell-dirstack nil)
   (setq shell-last-dir nil)