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
3e721a14
Commit
3e721a14
authored
Nov 17, 2005
by
Juri Linkov
Browse files
(lisp, c, tex): Add :link (custom-group-link font-lock-faces) to defgroup.
(custom-variable-prompt): Clarify the code.
parent
a4deefed
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
9 deletions
+11
-9
lisp/cus-edit.el
lisp/cus-edit.el
+11
-9
No files found.
lisp/cus-edit.el
View file @
3e721a14
...
...
@@ -212,11 +212,13 @@
(
defgroup
lisp
nil
"Lisp support, including Emacs Lisp."
:link
'
(
custom-group-link
:tag
"Font Lock Faces group"
font-lock-faces
)
:group
'languages
:group
'development
)
(
defgroup
c
nil
"Support for the C language and related languages."
:link
'
(
custom-group-link
:tag
"Font Lock Faces group"
font-lock-faces
)
:link
'
(
custom-manual
"(ccmode)"
)
:group
'languages
)
...
...
@@ -323,6 +325,7 @@
(
defgroup
tex
nil
"Code related to the TeX formatter."
:link
'
(
custom-group-link
:tag
"Font Lock Faces group"
font-lock-faces
)
:group
'wp
)
(
defgroup
faces
nil
...
...
@@ -490,15 +493,14 @@ IF REGEXP is not a string, return it unchanged."
(
defun
custom-variable-prompt
()
"Prompt for a custom variable, defaulting to the variable at point.
Return a list suitable for use in `interactive'."
(
let
((
v
(
variable-at-point
))
(
enable-recursive-minibuffers
t
)
val
)
(
setq
val
(
if
(
and
(
symbolp
v
)
(
custom-variable-p
v
))
(
completing-read
(
format
"Customize option (default %s): "
v
)
obarray
'custom-variable-p
t
nil
nil
(
symbol-name
v
))
(
completing-read
"Customize option: "
obarray
'custom-variable-p
t
)))
(
let*
((
v
(
variable-at-point
))
(
default
(
and
(
symbolp
v
)
(
custom-variable-p
v
)
(
symbol-name
v
)))
(
enable-recursive-minibuffers
t
)
val
)
(
setq
val
(
completing-read
(
if
default
(
format
"Customize option (default %s): "
default
)
"Customize option: "
)
obarray
'custom-variable-p
t
nil
nil
default
))
(
list
(
if
(
equal
val
""
)
(
if
(
symbolp
v
)
v
nil
)
(
intern
val
)))))
...
...
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