diff options
| author | Juanma Barranquero | 2002-02-25 16:07:01 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2002-02-25 16:07:01 +0000 |
| commit | 40cf8f25e673041e8e03f9db8d4e0716366315d9 (patch) | |
| tree | 5c34171029fd68b7117caaef76a5443ddf41650b | |
| parent | e63e8d3ed3fcc80e81cfd6d845de13522e0cad80 (diff) | |
| download | emacs-40cf8f25e673041e8e03f9db8d4e0716366315d9.tar.gz emacs-40cf8f25e673041e8e03f9db8d4e0716366315d9.zip | |
(ielm-prompt): Allow customization; make it read-only.
| -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 @@ | |||
| 70 | :type 'boolean | 70 | :type 'boolean |
| 71 | :group 'ielm) | 71 | :group 'ielm) |
| 72 | 72 | ||
| 73 | (defvar ielm-prompt "ELISP> " | 73 | (defcustom ielm-prompt "ELISP> " |
| 74 | "Prompt used in IELM.") | 74 | "Prompt used in IELM." |
| 75 | :type 'string | ||
| 76 | :group 'ielm | ||
| 77 | :get #'(lambda (symbol) (substring-no-properties (symbol-value symbol))) | ||
| 78 | :set #'(lambda (symbol value) (set symbol (propertize value 'read-only t 'rear-nonsticky t)))) | ||
| 75 | 79 | ||
| 76 | (defcustom ielm-dynamic-return t | 80 | (defcustom ielm-dynamic-return t |
| 77 | "*Controls whether \\<ielm-map>\\[ielm-return] has intelligent behaviour in IELM. | 81 | "*Controls whether \\<ielm-map>\\[ielm-return] has intelligent behaviour in IELM. |