Mercurial > hg > xemacs-beta

diff lisp/prim/syntax.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 3bb7ccffb0c0
children
line wrap: on
line diff
--- a/lisp/prim/syntax.el	Mon Aug 13 09:41:47 2007 +0200
+++ b/lisp/prim/syntax.el	Mon Aug 13 09:42:26 2007 +0200
@@ -392,7 +392,7 @@
   (interactive)
   ;alg stolen from etag.el
   (save-excursion
-	(if (not (memq (char-syntax (char-before)) '(?w ?_)))
+	(if (or (bobp) (not (memq (char-syntax (char-before)) '(?w ?_))))
 	    (while (not (looking-at "\\sw\\|\\s_\\|\\'"))
 	      (forward-char 1)))
 	(while (looking-at "\\sw\\|\\s_")