From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 25 Feb 2002 16:07:01 +0000 (+0000)
Subject: (ielm-prompt): Allow customization; make it read-only.
X-Git-Tag: ttn-vms-21-2-B4~16483
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40cf8f25e673041e8e03f9db8d4e0716366315d9;p=emacs.git

(ielm-prompt): Allow customization; make it read-only.
---

diff --git a/lisp/ielm.el b/lisp/ielm.el
index 7000b1b265d..dc2f144b6fc 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -70,8 +70,12 @@
   :type 'boolean
   :group 'ielm)
 
-(defvar ielm-prompt "ELISP> "
-  "Prompt used in IELM.")
+(defcustom ielm-prompt "ELISP> "
+  "Prompt used in IELM."
+  :type 'string
+  :group 'ielm
+  :get #'(lambda (symbol) (substring-no-properties (symbol-value symbol)))
+  :set #'(lambda (symbol value) (set symbol (propertize value 'read-only t 'rear-nonsticky t))))
 
 (defcustom ielm-dynamic-return t
   "*Controls whether \\<ielm-map>\\[ielm-return] has intelligent behaviour in IELM.