[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el [emacs-unicode-2] |
Date: |
Sat, 04 Sep 2004 05:46:59 -0400 |
Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.176.2.3
emacs/lisp/progmodes/etags.el:1.176.2.4
*** emacs/lisp/progmodes/etags.el:1.176.2.3 Tue Aug 3 00:02:59 2004
--- emacs/lisp/progmodes/etags.el Sat Sep 4 09:14:25 2004
***************
*** 772,797 ****
(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))
--- 772,777 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el [emacs-unicode-2],
Miles Bader <=