Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b7277ac6
Commit
b7277ac6
authored
Mar 08, 1994
by
Roland McGrath
Browse files
(etags-list-tags): Check for explicit tag names.
parent
e1dec509
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
3 deletions
+9
-3
lisp/progmodes/etags.el
lisp/progmodes/etags.el
+9
-3
No files found.
lisp/progmodes/etags.el
View file @
b7277ac6
...
...
@@ -1020,9 +1020,15 @@ See documentation of variable `tags-file-name'."
nil
(forward-line 1)
(while (not (or (eobp) (looking-at "
\f
")))
(princ (buffer-substring (point)
(progn (skip-chars-forward "
^\177
")
(point))))
(let ((tag (buffer-substring (point)
(progn (skip-chars-forward "
^\177
")
(point)))))
(princ (if (looking-at "
[^\n]+\001
")
;; There is an explicit tag name; use that.
(buffer-substring (point)
(progn (skip-chars-forward "
^\001
")
(point)))
tag)))
(terpri)
(forward-line 1))
t))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment