# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 733620625 0
# Node ID c6ad6845e1b2f1cceb7f9ea57595cac77af465b6
# Parent  5a563f113d6a98ccea3adc5ab04176103f3adffd
(etags-tags-completion-table): Use skip-syntax-backward instead of
skip-chars-backward.

diff -r 5a563f113d6a -r c6ad6845e1b2 lisp/progmodes/etags.el
--- 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))