/[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.176.2.4 by miles, Sat Sep 4 09:14:25 2004 UTC revision 1.176.2.5 by miles, Thu Oct 14 08:50:06 2004 UTC
# Line 1229  where they were found." Line 1229  where they were found."
1229    
1230  (defun etags-tags-completion-table ()  (defun etags-tags-completion-table ()
1231    (let ((table (make-vector 511 0))    (let ((table (make-vector 511 0))
1232          (point-max (/ (float (point-max)) 100.0))          (progress-reporter
1233          (msg-fmt (format           (make-progress-reporter
1234                    "Making tags completion table for %s...%%d%%%%"            (format "Making tags completion table for %s..." buffer-file-name)
1235                    buffer-file-name)))            (point-min) (point-max))))
1236      (save-excursion      (save-excursion
1237        (goto-char (point-min))        (goto-char (point-min))
1238        ;; This monster regexp matches an etags tag line.        ;; This monster regexp matches an etags tag line.
# Line 1253  where they were found." Line 1253  where they were found."
1253                             (buffer-substring (match-beginning 5) (match-end 5))                             (buffer-substring (match-beginning 5) (match-end 5))
1254                           ;; No explicit tag name.  Best guess.                           ;; No explicit tag name.  Best guess.
1255                           (buffer-substring (match-beginning 3) (match-end 3)))                           (buffer-substring (match-beginning 3) (match-end 3)))
1256                    (message msg-fmt (/ (point) point-max)))                    (progress-reporter-update progress-reporter (point)))
1257                  table)))                  table)))
1258      table))      table))
1259    
# Line 1433  where they were found." Line 1433  where they were found."
1433      (tags-with-face 'highlight (princ buffer-file-name))      (tags-with-face 'highlight (princ buffer-file-name))
1434      (princ "':\n\n"))      (princ "':\n\n"))
1435    (goto-char (point-min))    (goto-char (point-min))
1436    (let ((point-max (/ (float (point-max)) 100.0)))    (let ((progress-reporter (make-progress-reporter
1437                                (format "Making tags apropos buffer for `%s'..."
1438                                        string)
1439                                (point-min) (point-max))))
1440      (while (re-search-forward string nil t)      (while (re-search-forward string nil t)
1441        (message "Making tags apropos buffer for `%s'...%d%%"        (progress-reporter-update progress-reporter (point))
                string  
                (/ (point) point-max))  
1442        (beginning-of-line)        (beginning-of-line)
1443    
1444        (let* ( ;; Get the local value in the tags table        (let* ( ;; Get the local value in the tags table

Legend:
Removed from v.1.176.2.4  
changed lines
  Added in v.1.176.2.5

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