[Top][All Lists]
[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: |
Mon, 25 Oct 2004 00:45:08 -0400 |
Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.165.2.5
emacs/lisp/progmodes/etags.el:1.165.2.6
*** emacs/lisp/progmodes/etags.el:1.165.2.5 Sat Sep 4 09:28:13 2004
--- emacs/lisp/progmodes/etags.el Mon Oct 25 04:19:43 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el [lexbind],
Miles Bader <=