diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-02-25 16:07:01 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-02-25 16:07:01 +0000 |
| commit | 40cf8f25e673041e8e03f9db8d4e0716366315d9 (patch) | |
| tree | 5c34171029fd68b7117caaef76a5443ddf41650b /lisp/ielm.el | |
| parent | e63e8d3ed3fcc80e81cfd6d845de13522e0cad80 (diff) | |
| download | emacs-40cf8f25e673041e8e03f9db8d4e0716366315d9.tar.gz | |
(ielm-prompt): Allow customization; make it read-only.
Diffstat (limited to 'lisp/ielm.el')
| -rw-r--r-- | lisp/ielm.el | 8 |
1 files 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. |