X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/326e87d25cab2a13ff23191635388fb4c9b2ea74..3f251fcd3b47a73f14fa0ba17b47a7694b9de436:/lisp/ielm.el

diff --git a/lisp/ielm.el b/lisp/ielm.el
index b50dc5d0bf..d891ec7945 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -101,11 +101,7 @@ such as `edebug-defun' to work with such inputs."
 This variable is buffer-local.")
 
 (defvar ielm-header 
-  (concat
-   "*** Welcome to IELM version "
-   (substring "$Revision: 1.14 $" 11 -2)
-   " ***  Type (describe-mode) for help.\n"
-   "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
+  "*** Welcome to IELM ***  Type (describe-mode) for help.\n"
   "Message to display when IELM is started.")
 
 (defvar ielm-map nil)
@@ -134,7 +130,9 @@ This variable is buffer-local.")
 (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)))
+   '("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)"
+     (1 font-lock-comment-face)
+     (2 font-lock-constant-face)))
   "Additional expressions to highlight in ielm buffers.")
 	
 ;;; Completion stuff