Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
820ad5e7
Commit
820ad5e7
authored
May 02, 2000
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(help-xref-on-pp): Check for constant symbols.
parent
3e8b2a01
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
3 deletions
+13
-3
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/help.el
lisp/help.el
+9
-3
No files found.
lisp/ChangeLog
View file @
820ad5e7
2000-05-02 Dave Love <fx@gnu.org>
* help.el (help-xref-on-pp): Check for constant symbols.
2000-04-29 Gerd Moellmann <gerd@gnu.org>
* startup.el (normal-top-level): Put a condition-case around
...
...
lisp/help.el
View file @
820ad5e7
...
...
@@ -766,9 +766,14 @@ Return 0 if there is no such symbol."
((
looking-at
"#<"
)
(
search-forward
">"
nil
'move
))
((
looking-at
"\\(\\(\\sw\\|\\s_\\)+\\)"
)
(
let*
((
sym
(
intern-soft
(
buffer-substring
(
match-beginning
1
)
(
match-end
1
))))
(
buffer-substring
(
match-beginning
1
)
(
match-end
1
))))
(
fn
(
cond
((
fboundp
sym
)
#'
describe-function
)
((
and
sym
(
boundp
sym
))
#'
describe-variable
))))
((
or
(
memq
sym
'
(
t
nil
))
(
keywordp
sym
))
nil
)
((
and
sym
(
boundp
sym
))
#'
describe-variable
))))
(
when
fn
(
help-xref-button
1
fn
sym
)))
(
goto-char
(
match-end
1
)))
(
t
(
forward-char
1
))))))
...
...
@@ -782,7 +787,8 @@ Returns the documentation as a string, also."
(
enable-recursive-minibuffers
t
)
val
)
(
setq
val
(
completing-read
(
if
(
symbolp
v
)
(
format
"Describe variable (default %s): "
v
)
(
format
"Describe variable (default %s): "
v
)
"Describe variable: "
)
obarray
'boundp
t
nil
nil
(
if
(
symbolp
v
)
(
symbol-name
v
))))
...
...
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