Commit 17276ed3 authored by Roland McGrath's avatar Roland McGrath

(etags-tags-completion-table): Use skip-syntax-backward instead of

skip-chars-backward.
parent 79d0c1e7
...@@ -854,20 +854,19 @@ See documentation of variable `tags-file-name'." ...@@ -854,20 +854,19 @@ See documentation of variable `tags-file-name'."
(while (search-forward "\177" nil t) (while (search-forward "\177" nil t)
;; Handle multiple \177's on a line. ;; Handle multiple \177's on a line.
(save-excursion (save-excursion
(skip-chars-backward "^-A-Za-z0-9_$\n") ;sym syntax? XXX (skip-syntax-backward "w_")
(or (bolp) (or (bolp)
(intern (buffer-substring (intern (buffer-substring
(point) (point)
(progn (progn
(skip-chars-backward "-A-Za-z0-9_$") (skip-syntax-backward "w_")
;; ??? New ;; ??? New
;; `::' in the middle of a C++ tag. ;; `::' in the middle of a C++ tag.
(and (= (preceding-char) ?:) (and (= (preceding-char) ?:)
(= (char-after (- (point) 2)) ?:) (= (char-after (- (point) 2)) ?:)
(progn (progn
(backward-char 2) (backward-char 2)
(skip-chars-backward (skip-syntax-backward "w_")))
"-A-Za-z0-9_$")))
(point))) (point)))
table))))) table)))))
table)) table))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment