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
a326c090
Commit
a326c090
authored
Apr 14, 1997
by
Richard M. Stallman
Browse files
Add defgroup; use defcustom for user vars.
parent
b092a134
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
9 deletions
+21
-9
lisp/emacs-lisp/eldoc.el
lisp/emacs-lisp/eldoc.el
+21
-9
No files found.
lisp/emacs-lisp/eldoc.el
View file @
a326c090
...
...
@@ -7,7 +7,7 @@
;; Keywords: extensions
;; Created: 1995-10-06
;; $Id: eldoc.el,v 1.1
0
1997/0
2/19
10:
2
4:
2
6 friedman Exp $
;; $Id: eldoc.el,v 1.1
1
1997/0
3/27
10:
4
4:
5
6 friedman Exp
rms
$
;; This file is part of GNU Emacs.
...
...
@@ -54,8 +54,12 @@
(
or
(
featurep
'timer
)
(
load
"timer"
t
))
(
defgroup
eldoc
nil
"Show function arglist or variable docstring in echo area."
:group
'extensions
)
;;;###autoload
(
def
var
eldoc-mode
nil
(
def
custom
eldoc-mode
nil
"*If non-nil, show the defined parameters for the elisp function near point.
For the emacs lisp function at the beginning of the sexp which point is
...
...
@@ -67,18 +71,24 @@ from the documentation string if possible.
If point is over a documented variable, print that variable's docstring
instead.
This variable is buffer-local."
)
This variable is buffer-local."
:type
'boolean
:group
'eldoc
)
(
make-variable-buffer-local
'eldoc-mode
)
(
def
var
eldoc-idle-delay
0.50
(
def
custom
eldoc-idle-delay
0.50
"*Number of seconds of idle time to wait before printing.
If user input arrives before this interval of time has elapsed after the
last input, no documentation will be printed.
If this variable is set to 0, no idle time is required."
)
If this variable is set to 0, no idle time is required."
:type
'number
:group
'eldoc
)
(
defvar
eldoc-minor-mode-string
" ElDoc"
"*String to display in mode line when Eldoc Mode is enabled."
)
(
defcustom
eldoc-minor-mode-string
" ElDoc"
"*String to display in mode line when Eldoc Mode is enabled."
:type
'string
:group
'eldoc
)
;; Put this minor mode on the global minor-mode-alist.
(
or
(
assq
'eldoc-mode
(
default-value
'minor-mode-alist
))
...
...
@@ -86,11 +96,13 @@ If this variable is set to 0, no idle time is required.")
(
append
(
default-value
'minor-mode-alist
)
'
((
eldoc-mode
eldoc-minor-mode-string
)))))
(
def
var
eldoc-argument-case
'upcase
(
def
custom
eldoc-argument-case
'upcase
"Case to display argument names of functions, as a symbol.
This has two preferred values: `upcase' or `downcase'.
Actually, any name of a function which takes a string as an argument and
returns another string is acceptable."
)
returns another string is acceptable."
:type
'
(
choice
(
const
upcase
)
(
const
downcase
))
:group
'eldoc
)
;; No user options below here.
...
...
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