emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el [lexbind]
Date: Sat, 04 Sep 2004 05:51:18 -0400

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.165.2.4 
emacs/lisp/progmodes/etags.el:1.165.2.5
*** emacs/lisp/progmodes/etags.el:1.165.2.4     Sat Sep  4 09:19:27 2004
--- emacs/lisp/progmodes/etags.el       Sat Sep  4 09:28:13 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 ----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]