From 4f03937734de009fc96a95a2403e46440c6ca0ee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 Oct 1995 20:03:31 +0000 Subject: (function-called-at-point, variable-at-point): Don't back up if we start at the beginning of a symbol. --- lisp/help.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lisp/help.el') 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))) -- cgit v1.2.1