Mercurial > emacs
diff lisp/progmodes/etags.el @ 56827:12cc6bc5d550
(find-tag-default): Moved to subr.el.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 28 Aug 2004 15:30:31 +0000 |
parents | 8699eccc1a33 |
children | 55eb88327d84 3219f94257bc |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Sat Aug 28 15:30:10 2004 +0000 +++ b/lisp/progmodes/etags.el Sat Aug 28 15:30:31 2004 +0000 @@ -772,26 +772,6 @@ (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))