Mercurial > emacs

changeset 2445:c6ad6845e1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(etags-tags-completion-table): Use skip-syntax-backward instead of skip-chars-backward.
author Roland McGrath <roland@gnu.org>
date Wed, 31 Mar 1993 23:30:25 +0000
parents 5a563f113d6a
children 11ca45403cf5
files lisp/progmodes/etags.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Wed Mar 31 23:16:10 1993 +0000
+++ b/lisp/progmodes/etags.el	Wed Mar 31 23:30:25 1993 +0000
@@ -854,20 +854,19 @@
       (while (search-forward "\177" nil t)
 	;; Handle multiple \177's on a line.
 	(save-excursion
-	  (skip-chars-backward "^-A-Za-z0-9_$\n") ;sym syntax? XXX
+	  (skip-syntax-backward "w_")
 	  (or (bolp)
 	      (intern (buffer-substring
 		       (point)
 		       (progn
-			 (skip-chars-backward "-A-Za-z0-9_$")
+			 (skip-syntax-backward "w_")
 			 ;; ??? New
 			 ;; `::' in the middle of a C++ tag.
 			 (and (= (preceding-char) ?:)
 			      (= (char-after (- (point) 2)) ?:)
 			      (progn
 				(backward-char 2)
-				(skip-chars-backward
-				 "-A-Za-z0-9_$")))
+				(skip-syntax-backward "w_")))
 			 (point)))
 		      table)))))
     table))