# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1014653221 0
# Node ID ca53e91e0186d5f772572bf3bb2f1c3463dd776b
# Parent  c7eaaa9c5bf5e28f0e1d976ae950b2721b3f7026
(ielm-prompt): Allow customization; make it read-only.

diff -r c7eaaa9c5bf5 -r ca53e91e0186 lisp/ielm.el
--- a/lisp/ielm.el	Mon Feb 25 15:47:41 2002 +0000
+++ b/lisp/ielm.el	Mon Feb 25 16:07:01 2002 +0000
@@ -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.