# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 813355411 0
# Node ID 7fd22a2485f2663103a2835f7d393d0e67a25abd
# Parent  d72f18f068a858aa625014d75e1d567332fdbfe7
(function-called-at-point, variable-at-point):
Don't back up if we start at the beginning of a symbol.

diff -r d72f18f068a8 -r 7fd22a2485f2 lisp/help.el
--- a/lisp/help.el	Mon Oct 09 20:52:43 1995 +0000
+++ b/lisp/help.el	Tue Oct 10 20:03:31 1995 +0000
@@ -445,7 +445,9 @@
 	(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 @@
 (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)))