Mercurial > emacs
changeset 12439:6141f81a80e5
(ielm-font-lock-keywords): New variable
(inferior-emacs-lisp-mode): Use it for font-lock support
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Jun 1995 23:13:19 +0000 |
| parents | de20177f1cb2 |
| children | 5f4248eb4bdd |
| files | lisp/ielm.el |
| diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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")