Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fb155844
Commit
fb155844
authored
Aug 28, 2004
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(find-tag-default): Moved to subr.el.
parent
a0d84262
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
20 deletions
+0
-20
lisp/progmodes/etags.el
lisp/progmodes/etags.el
+0
-20
No files found.
lisp/progmodes/etags.el
View file @
fb155844
...
...
@@ -772,26 +772,6 @@ Assumes the tags table is the current buffer."
(
all-completions
string
(
tags-completion-table
)
predicate
)
(
try-completion
string
(
tags-completion-table
)
predicate
))))
;; Return a default tag to search for, based on the text at point.
(
defun
find-tag-default
()
(
save-excursion
(
while
(
looking-at
"\\sw\\|\\s_"
)
(
forward-char
1
))
(
if
(
or
(
re-search-backward
"\\sw\\|\\s_"
(
save-excursion
(
beginning-of-line
)
(
point
))
t
)
(
re-search-forward
"\\(\\sw\\|\\s_\\)+"
(
save-excursion
(
end-of-line
)
(
point
))
t
))
(
progn
(
goto-char
(
match-end
0
))
(
buffer-substring-no-properties
(
point
)
(
progn
(
forward-sexp
-1
)
(
while
(
looking-at
"\\s'"
)
(
forward-char
1
))
(
point
))))
nil
)))
;; Read a tag name from the minibuffer with defaulting and completion.
(
defun
find-tag-tag
(
string
)
(
let*
((
completion-ignore-case
(
if
(
memq
tags-case-fold-search
'
(
t
nil
))
...
...
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