Commit 9e5b444e authored by Richard M. Stallman's avatar Richard M. Stallman

Add defgroup; use defcustom for user vars.

parent abbc1a7a
......@@ -142,15 +142,23 @@
;; start user configuration variables
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
(defvar elp-function-list nil
"*List of function to profile.
Used by the command `elp-instrument-list'.")
(defgroup elp nil
"Emacs Lisp Profiler"
:group 'lisp)
(defvar elp-reset-after-results t
(defcustom elp-function-list nil
"*List of functions to profile.
Used by the command `elp-instrument-list'."
:type '(repeat function)
:group 'elp)
(defcustom elp-reset-after-results t
"*Non-nil means reset all profiling info after results are displayed.
Results are displayed with the `elp-results' command.")
Results are displayed with the `elp-results' command."
:type 'boolean
:group 'elp)
(defvar elp-sort-by-function 'elp-sort-by-total-time
(defcustom elp-sort-by-function 'elp-sort-by-total-time
"*Non-nil specifies elp results sorting function.
These functions are currently available:
......@@ -163,21 +171,30 @@ interface specified by the PRED argument for the `sort' defun. Each
\"element of LIST\" is really a 4 element vector where element 0 is
the call count, element 1 is the total time spent in the function,
element 2 is the average time spent in the function, and element 3 is
the symbol's name string.")
the symbol's name string."
:type 'function
:group 'elp)
(defvar elp-report-limit 1
(defcustom elp-report-limit 1
"*Prevents some functions from being displayed in the results buffer.
If a number, no function that has been called fewer than that number
of times will be displayed in the output buffer. If nil, all
functions will be displayed.")
functions will be displayed."
:type '(choice integer
(const :tag "All" nil))
:group 'elp)
(defvar elp-use-standard-output nil
"*Non-nil says to output to `standard-output' instead of a buffer.")
(defcustom elp-use-standard-output nil
"*Non-nil says to output to `standard-output' instead of a buffer."
:type 'boolean
:group 'elp)
(defvar elp-recycle-buffers-p t
(defcustom elp-recycle-buffers-p t
"*Nil says to not recycle the `elp-results-buffer'.
In other words, a new unique buffer is create every time you run
\\[elp-results].")
\\[elp-results]."
:type 'boolean
:group 'elp)
;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
......
......@@ -55,40 +55,55 @@
;;; Code:
(defgroup resize-minibuffer nil
"Dynamically resize minibuffer to display entire contents"
:group 'frames)
;;;###autoload
(defvar resize-minibuffer-mode nil
"*If non-`nil', resize the minibuffer so its entire contents are visible.")
(defcustom resize-minibuffer-mode nil
"*If non-`nil', resize the minibuffer so its entire contents are visible."
:type 'boolean
:group 'resize-minibuffer)
;;;###autoload
(defvar resize-minibuffer-window-max-height nil
(defcustom resize-minibuffer-window-max-height nil
"*Maximum size the minibuffer window is allowed to become.
If less than 1 or not a number, the limit is the height of the frame in
which the active minibuffer window resides.")
which the active minibuffer window resides."
:type '(choice (const nil) integer)
:group 'resize-minibuffer)
;;;###autoload
(defvar resize-minibuffer-window-exactly t
(defcustom resize-minibuffer-window-exactly t
"*Allow making minibuffer exactly the size to display all its contents.
If `nil', the minibuffer window can temporarily increase in size but
never get smaller while it is active. Any other value allows exact
resizing.")
resizing."
:type 'boolean
:group 'resize-minibuffer)
;;;###autoload
(defvar resize-minibuffer-frame nil
(defcustom resize-minibuffer-frame nil
"*Allow changing the frame height of minibuffer frames.
If non-`nil' and the active minibuffer is the sole window in its frame,
allow changing the frame height.")
allow changing the frame height."
:type 'boolean
:group 'resize-minibuffer)
;;;###autoload
(defvar resize-minibuffer-frame-max-height nil
(defcustom resize-minibuffer-frame-max-height nil
"*Maximum size the minibuffer frame is allowed to become.
If less than 1 or not a number, there is no limit.")
;;;###autoload
(defvar resize-minibuffer-frame-exactly t
(defcustom resize-minibuffer-frame-exactly t
"*Allow making minibuffer frame exactly the size to display all its contents.
If `nil', the minibuffer frame can temporarily increase in size but
never get smaller while it is active. Any other value allows exact
resizing.")
resizing."
:type 'boolean
:group 'resize-minibuffer)
;; Variable used to store the height of the minibuffer frame
;; on entry, so it can be restored on exit. It is made local before it is
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment