/[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.165.2.2 by miles, Tue Oct 14 23:30:17 2003 UTC revision 1.165.2.3 by miles, Tue Jul 6 09:23:47 2004 UTC
# Line 1248  where they were found." Line 1248  where they were found."
1248    
1249    
1250  (defun etags-tags-completion-table ()  (defun etags-tags-completion-table ()
1251    (let ((table (make-vector 511 0)))    (let ((table (make-vector 511 0))
1252            (point-max (/ (float (point-max)) 100.0))
1253            (msg-fmt (format
1254                      "Making tags completion table for %s...%%d%%%%"
1255                      buffer-file-name)))
1256      (save-excursion      (save-excursion
1257        (goto-char (point-min))        (goto-char (point-min))
1258        ;; This monster regexp matches an etags tag line.        ;; This monster regexp matches an etags tag line.
# Line 1264  where they were found." Line 1268  where they were found."
1268  \\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\  \\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\
1269  \\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n"  \\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n"
1270                nil t)                nil t)
1271          (intern (if (match-beginning 5)          (intern (prog1 (if (match-beginning 5)
1272                      ;; There is an explicit tag name.                             ;; There is an explicit tag name.
1273                      (buffer-substring (match-beginning 5) (match-end 5))                             (buffer-substring (match-beginning 5) (match-end 5))
1274                    ;; No explicit tag name.  Best guess.                           ;; No explicit tag name.  Best guess.
1275                    (buffer-substring (match-beginning 3) (match-end 3)))                           (buffer-substring (match-beginning 3) (match-end 3)))
1276                      (message msg-fmt (/ (point) point-max)))
1277                  table)))                  table)))
1278      table))      table))
1279    
# Line 1866  directory specification." Line 1871  directory specification."
1871          (or gotany          (or gotany
1872              (error "File %s not in current tags tables" file)))))              (error "File %s not in current tags tables" file)))))
1873    (with-current-buffer "*Tags List*"    (with-current-buffer "*Tags List*"
1874        (require 'apropos)
1875      (apropos-mode)      (apropos-mode)
1876      (setq buffer-read-only t)))      (setq buffer-read-only t)))
1877    
# Line 1884  directory specification." Line 1890  directory specification."
1890            (funcall tags-apropos-function regexp))))            (funcall tags-apropos-function regexp))))
1891      (etags-tags-apropos-additional regexp))      (etags-tags-apropos-additional regexp))
1892    (with-current-buffer "*Tags List*"    (with-current-buffer "*Tags List*"
1893        (require 'apropos)
1894      (apropos-mode)      (apropos-mode)
1895      ;; apropos-mode is derived from fundamental-mode and it kills      ;; apropos-mode is derived from fundamental-mode and it kills
1896      ;; all local variables.      ;; all local variables.

Legend:
Removed from v.1.165.2.2  
changed lines
  Added in v.1.165.2.3

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