diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-10 20:03:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-10 20:03:31 +0000 |
| commit | da16d59923508785ad12e1aca61e70af8bbf8cd7 (patch) | |
| tree | 3ca84c3d474dda7639f9cb59cd7edc7e711d6810 /lisp/help.el | |
| parent | 6fdc249f09bb93de7201b4f0efc60192ee1914a5 (diff) | |
| download | emacs-da16d59923508785ad12e1aca61e70af8bbf8cd7.tar.gz | |
(function-called-at-point, variable-at-point):
Don't back up if we start at the beginning of a symbol.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index f9a689bf081..48192073baf 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -445,7 +445,9 @@ C-w print information on absence of warranty for GNU Emacs." (error nil)) (condition-case () (save-excursion - (forward-sexp -1) + (and (or (eq (char-syntax (preceding-char)) ?_) + (eq (char-syntax (preceding-char)) ?w)) + (forward-sexp -1)) (skip-chars-forward "'") (let ((obj (read (current-buffer)))) (and (symbolp obj) (fboundp obj) obj))) @@ -540,7 +542,9 @@ C-w print information on absence of warranty for GNU Emacs." (defun variable-at-point () (condition-case () (save-excursion - (forward-sexp -1) + (and (or (eq (char-syntax (preceding-char)) ?_) + (eq (char-syntax (preceding-char)) ?w)) + (forward-sexp -1)) (skip-chars-forward "'") (let ((obj (read (current-buffer)))) (and (symbolp obj) (boundp obj) obj))) |