faster tag-search

faster tag-search

[Bob Foss]

[-- Attachment #1: Type: text/plain, Size: 415 bytes --]

When my new machine with an SSD didn't seem to perform
tag searches any faster than my old machine, I got to wondering
if the status message was slowing everything down.

I found a significant improvement just by changing the
"Scanning file ..." message.  I believe it was mostly waiting
on video refresh, but I'm not entirely certain.

The diff is against the latest etags.el from the http git interface.

Thanks.

[-- Attachment #2: etags.el.diff --]
[-- Type: text/plain, Size: 738 bytes --]

--- etags.el.d22d03fbe966097b4ed2785d09b54841d1a384ee	2011-02-09 17:40:13.000000000 -0600
+++ etags.el	2011-02-09 17:40:46.000000000 -0600
@@ -1821,17 +1821,17 @@
 	    (setq new (next-file first-time t))
 
 	    ;; If NEW is non-nil, we got a temp buffer,
 	    ;; and NEW is the file name.
 	    (when (or messaged
 		      (and (not first-time)
 			   (> baud-rate search-slow-speed)
 			   (setq messaged t)))
-	      (message "Scanning file %s..." (or new buffer-file-name)))
+	      (message "Scanning file ..."))
 
 	    (setq first-time nil)
 	    (setq original-point (if new nil (point)))
 	    (goto-char (point-min)))
 
 	  ;; If we visited it in a temp buffer, visit it now for real.
 	  (if new
 	      (let ((pos (point)))