changeset 13197:69ab0ac9501a

(variable-at-point, function-called-at-point): Fix revious changes.
author Richard M. Stallman <rms@gnu.org>
date Thu, 12 Oct 1995 17:56:17 +0000
parents 95fbb5bd0a5a
children 43d90596da34
files lisp/help.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Thu Oct 12 15:44:45 1995 +0000
+++ b/lisp/help.el	Thu Oct 12 17:56:17 1995 +0000
@@ -445,9 +445,10 @@
 	(error nil))
       (condition-case ()
 	  (save-excursion
-	    (and (or (eq (char-syntax (preceding-char)) ?_)
-		     (eq (char-syntax (preceding-char)) ?w))
-		 (forward-sexp -1))
+	    (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)))
@@ -542,9 +543,10 @@
 (defun variable-at-point ()
   (condition-case ()
       (save-excursion
-	(and (or (eq (char-syntax (preceding-char)) ?_)
-		 (eq (char-syntax (preceding-char)) ?w))
-	     (forward-sexp -1))
+	(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)))