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
cc3064a5
Commit
cc3064a5
authored
Sep 02, 2004
by
Juri Linkov
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(variable-at-point): Try `find-tag-default' when other methods failed.
parent
542e904c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
12 deletions
+15
-12
lisp/help-fns.el
lisp/help-fns.el
+15
-12
No files found.
lisp/help-fns.el
View file @
cc3064a5
...
...
@@ -461,18 +461,21 @@ face (according to `face-differs-from-default-p')."
(
defun
variable-at-point
()
"Return the bound variable symbol found around point.
Return 0 if there is no such symbol."
(
condition-case
()
(
with-syntax-table
emacs-lisp-mode-syntax-table
(
save-excursion
(
or
(
not
(
zerop
(
skip-syntax-backward
"_w"
)))
(
eq
(
char-syntax
(
following-char
))
?w
)
(
eq
(
char-syntax
(
following-char
))
?_
)
(
forward-sexp
-1
))
(
skip-chars-forward
"'"
)
(
let
((
obj
(
read
(
current-buffer
))))
(
or
(
and
(
symbolp
obj
)
(
boundp
obj
)
obj
)
0
))))
(
error
0
)))
(
or
(
condition-case
()
(
with-syntax-table
emacs-lisp-mode-syntax-table
(
save-excursion
(
or
(
not
(
zerop
(
skip-syntax-backward
"_w"
)))
(
eq
(
char-syntax
(
following-char
))
?w
)
(
eq
(
char-syntax
(
following-char
))
?_
)
(
forward-sexp
-1
))
(
skip-chars-forward
"'"
)
(
let
((
obj
(
read
(
current-buffer
))))
(
and
(
symbolp
obj
)
(
boundp
obj
)
obj
))))
(
error
nil
))
(
let*
((
str
(
find-tag-default
))
(
obj
(
if
str
(
read
str
))))
(
and
(
symbolp
obj
)
(
boundp
obj
)
obj
))
0
))
;;;###autoload
(
defun
describe-variable
(
variable
&optional
buffer
)
...
...
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