# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804467599 0
# Node ID 6141f81a80e53093d7784b3b1089be52356f843a
# Parent  de20177f1cb2c2c6e6f5831cfdbb3c67598d176c
(ielm-font-lock-keywords): New variable
(inferior-emacs-lisp-mode): Use it for font-lock support

diff -r de20177f1cb2 -r 6141f81a80e5 lisp/ielm.el
--- a/lisp/ielm.el	Thu Jun 29 22:37:56 1995 +0000
+++ b/lisp/ielm.el	Thu Jun 29 23:13:19 1995 +0000
@@ -87,7 +87,7 @@
 (defvar ielm-header 
   (concat
    "*** Welcome to IELM version "
-   (substring "$Revision: 1.3 $" 11 -2)
+   (substring "$Revision: 1.4 $" 11 -2)
    " ***  Type (describe-mode) for help.\n"
    "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
   "Message to display when IELM is started.")
@@ -116,6 +116,12 @@
   (define-key ielm-map "\C-c\C-f" 'ielm-display-working-buffer)
   (define-key ielm-map "\C-c\C-v" 'ielm-print-working-buffer))
 
+(defvar ielm-font-lock-keywords
+  (list 
+   (cons (concat "^" (regexp-quote ielm-prompt)) 'font-lock-keyword-face)
+   '("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)" (1 font-lock-comment-face) (2 font-lock-reference-face)))
+  "Additional expressions to highlight in ielm buffers.")
+	
 ;;; Completion stuff
 
 (defun ielm-tab nil
@@ -417,6 +423,11 @@
   (setq ::: nil)
   (make-local-variable ':::)
 
+  ;; font-lock support
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults 
+	'(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w"))))
+  
   ;; A dummy process to keep comint happy. It will never get any input
   (if (comint-check-proc (current-buffer)) nil
     (start-process "ielm" (current-buffer) "cat")