/[emacs]/emacs/lisp/progmodes/etags.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/etags.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.180 by jet, Wed Jul 28 09:05:22 2004 UTC revision 1.181 by rms, Sat Aug 28 15:30:31 2004 UTC
# Line 772  Assumes the tags table is the current bu Line 772  Assumes the tags table is the current bu
772          (all-completions string (tags-completion-table) predicate)          (all-completions string (tags-completion-table) predicate)
773        (try-completion string (tags-completion-table) predicate))))        (try-completion string (tags-completion-table) predicate))))
774    
 ;; 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)))  
   
775  ;; Read a tag name from the minibuffer with defaulting and completion.  ;; Read a tag name from the minibuffer with defaulting and completion.
776  (defun find-tag-tag (string)  (defun find-tag-tag (string)
777    (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))    (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))

Legend:
Removed from v.1.180  
changed lines
  Added in v.1.181

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26