From 40cf8f25e673041e8e03f9db8d4e0716366315d9 Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 25 Feb 2002 16:07:01 +0000
Subject: [PATCH] (ielm-prompt): Allow customization; make it read-only.

---
 lisp/ielm.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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.
-- 
2.39.2