diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-03 19:53:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-03 19:53:57 +0000 |
| commit | be0c053fb9799f6cffa185b0e43862f80610faa5 (patch) | |
| tree | 6f8266f353162c2da31f05ea5c607e342f81b55b /lisp/ielm.el | |
| parent | 30595e2d9595c72ac6b59e2f66aa3d72c6b38592 (diff) | |
| download | emacs-be0c053fb9799f6cffa185b0e43862f80610faa5.tar.gz | |
Use defgroup and defcustom.
Diffstat (limited to 'lisp/ielm.el')
| -rw-r--r-- | lisp/ielm.el | 31 |
1 files changed, 22 insertions, 9 deletions
diff --git a/lisp/ielm.el b/lisp/ielm.el index a5ce307a3d1..6a603c6f31b 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -59,26 +59,39 @@ ;;; User variables -(defvar ielm-noisy t - "*If non-nil, IELM will beep on error.") +(defgroup ielm nil + "Interaction mode for Emacs Lisp." + :group 'lisp) + + +(defcustom ielm-noisy t + "*If non-nil, IELM will beep on error." + :type 'boolean + :group 'ielm) (defvar ielm-prompt "ELISP> " "Prompt used in IELM.") -(defvar ielm-dynamic-return t +(defcustom ielm-dynamic-return t "*Controls whether \\<ielm-map>\\[ielm-return] has intelligent behaviour in IELM. If non-nil, \\[ielm-return] evaluates input for complete sexps, or inserts a newline -and indents for incomplete sexps. If nil, always inserts newlines.") +and indents for incomplete sexps. If nil, always inserts newlines." + :type 'boolean + :group 'ielm) -(defvar ielm-dynamic-multiline-inputs t +(defcustom ielm-dynamic-multiline-inputs t "*Force multiline inputs to start from column zero? If non-nil, after entering the first line of an incomplete sexp, a newline will be inserted after the prompt, moving the input to the next line. This gives more frame width for large indented sexps, and allows functions -such as `edebug-defun' to work with such inputs.") +such as `edebug-defun' to work with such inputs." + :type 'boolean + :group 'ielm) -(defvar ielm-mode-hook nil - "*Hooks to be run when IELM (`inferior-emacs-lisp-mode') is started.") +(defcustom ielm-mode-hook nil + "*Hooks to be run when IELM (`inferior-emacs-lisp-mode') is started." + :type 'hook + :group 'ielm) ;;; System variables @@ -89,7 +102,7 @@ This variable is buffer-local.") (defvar ielm-header (concat "*** Welcome to IELM version " - (substring "$Revision: 1.8 $" 11 -2) + (substring "$Revision: 1.9 $" 11 -2) " *** Type (describe-mode) for help.\n" "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n") "Message to display when IELM is started.") |