Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9e5b444e
Commit
9e5b444e
authored
Apr 12, 1997
by
Richard M. Stallman
Browse files
Add defgroup; use defcustom for user vars.
parent
abbc1a7a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
56 additions
and
24 deletions
+56
-24
lisp/emacs-lisp/elp.el
lisp/emacs-lisp/elp.el
+30
-13
lisp/rsz-mini.el
lisp/rsz-mini.el
+26
-11
No files found.
lisp/emacs-lisp/elp.el
View file @
9e5b444e
...
...
@@ -142,15 +142,23 @@
;; start user configuration variables
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
(
def
var
elp-function-list
nil
"
*List of function to p
rofile
.
Used by the command `elp-instrument-list'."
)
(
def
group
elp
nil
"
Emacs Lisp P
rofile
r"
: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
)
(
def
var
elp-sort-by-function
'elp-sort-by-total-time
(
def
custom
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
)
(
def
var
elp-report-limit
1
(
def
custom
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
)
(
def
var
elp-recycle-buffers-p
t
(
def
custom
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
)
;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
...
...
lisp/rsz-mini.el
View file @
9e5b444e
...
...
@@ -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
(
def
var
resize-minibuffer-window-max-height
nil
(
def
custom
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
(
def
var
resize-minibuffer-window-exactly
t
(
def
custom
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
(
def
var
resize-minibuffer-frame
nil
(
def
custom
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
(
def
var
resize-minibuffer-frame-max-height
nil
(
def
custom
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
(
def
var
resize-minibuffer-frame-exactly
t
(
def
custom
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment