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
914a48d0
Commit
914a48d0
authored
Oct 14, 1995
by
Richard M. Stallman
Browse files
(variable-at-point, function-called-at-point):
Switch temporarily to emacs-lisp-mode-syntax-table.
parent
a69315a1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
24 additions
and
16 deletions
+24
-16
lisp/help.el
lisp/help.el
+24
-16
No files found.
lisp/help.el
View file @
914a48d0
...
...
@@ -444,14 +444,18 @@ C-w print information on absence of warranty for GNU Emacs."
(
and
(
symbolp
obj
)
(
fboundp
obj
)
obj
))))
(
error
nil
))
(
condition-case
()
(
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
)
(
fboundp
obj
)
obj
)))
(
let
((
stab
(
syntax-table
)))
(
unwind-protect
(
save-excursion
(
set-syntax-table
emacs-lisp-mode-syntax-table
)
(
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
)
(
fboundp
obj
)
obj
)))
(
set-syntax-table
stab
)))
(
error
nil
))))
(
defun
describe-function-find-file
(
function
)
...
...
@@ -542,14 +546,18 @@ C-w print information on absence of warranty for GNU Emacs."
(
defun
variable-at-point
()
(
condition-case
()
(
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
)))
(
let
((
stab
(
syntax-table
)))
(
unwind-protect
(
save-excursion
(
set-syntax-table
emacs-lisp-mode-syntax-table
)
(
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
)))
(
set-syntax-table
stab
)))
(
error
nil
)))
(
defun
describe-variable
(
variable
)
...
...
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