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

[Eli Zaretskii]

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.181 emacs/lisp/progmodes/etags.el:1.182
*** emacs/lisp/progmodes/etags.el:1.181 Sat Aug 28 15:30:31 2004
--- emacs/lisp/progmodes/etags.el       Fri Oct  8 17:32:33 2004
***************
*** 1229,1238 ****
  
  (defun etags-tags-completion-table ()
    (let ((table (make-vector 511 0))
!       (point-max (/ (float (point-max)) 100.0))
!       (msg-fmt (format 
!                 "Making tags completion table for %s...%%d%%%%"
!                 buffer-file-name)))
      (save-excursion
        (goto-char (point-min))
        ;; This monster regexp matches an etags tag line.
--- 1229,1238 ----
  
  (defun etags-tags-completion-table ()
    (let ((table (make-vector 511 0))
!       (progress-reporter
!        (make-progress-reporter
!         (format "Making tags completion table for %s..." buffer-file-name)
!         (point-min) (point-max))))
      (save-excursion
        (goto-char (point-min))
        ;; This monster regexp matches an etags tag line.
***************
*** 1253,1259 ****
                           (buffer-substring (match-beginning 5) (match-end 5))
                         ;; No explicit tag name.  Best guess.
                         (buffer-substring (match-beginning 3) (match-end 3)))
!                 (message msg-fmt (/ (point) point-max)))
                table)))
      table))
  
--- 1253,1259 ----
                           (buffer-substring (match-beginning 5) (match-end 5))
                         ;; No explicit tag name.  Best guess.
                         (buffer-substring (match-beginning 3) (match-end 3)))
!                 (progress-reporter-update progress-reporter (point)))
                table)))
      table))
  
***************
*** 1433,1443 ****
      (tags-with-face 'highlight (princ buffer-file-name))
      (princ "':\n\n"))
    (goto-char (point-min))
!   (let ((point-max (/ (float (point-max)) 100.0)))
      (while (re-search-forward string nil t)
!       (message "Making tags apropos buffer for `%s'...%d%%"
!              string
!              (/ (point) point-max))
        (beginning-of-line)
  
        (let* ( ;; Get the local value in the tags table
--- 1433,1444 ----
      (tags-with-face 'highlight (princ buffer-file-name))
      (princ "':\n\n"))
    (goto-char (point-min))
!   (let ((progress-reporter (make-progress-reporter
!                           (format "Making tags apropos buffer for `%s'..."
!                                   string)
!                           (point-min) (point-max))))
      (while (re-search-forward string nil t)
!       (progress-reporter-update progress-reporter (point))
        (beginning-of-line)
  
        (let* ( ;; Get the local value in the tags table