* cedet/semantic/ctxt.el (semantic-get-local-variables): Disable

the progress reporter entirely.

2 files changed, 9 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb8c9a53259..301bcedc0a1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2009-11-08  Chong Yidong  <cyd@stupidchicken.com>
+
+        * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable
+        the progress reporter entirely.
+
 2009-11-08  Kevin Ryde  <user42@zip.com.au>
 
         * emacs-lisp/checkdoc.el (checkdoc-proper-noun-regexp): Match noun
-        at end of sentence (my Bug#4818).
+        at end of sentence (Bug#4818).
 
 2009-11-08  Jared Finder  <jfinder@crypticstudios.com>
 
diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index 478796e0025..e74bb8f4dbe 100644
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -156,15 +156,11 @@ Return non-nil if there is no upper context."
   "Get the local variables based on POINT's context.
 Local variables are returned in Semantic tag format.
 This can be overriden with `get-local-variables'."
-  ;; The working status is to let the parser work properly
-  (let ((semantic--progress-reporter
-         (make-progress-reporter (semantic-parser-working-message "Local")
-                                 0 100)))
+  ;; Disable parsing messages
+  (let ((semantic--progress-reporter nil))
     (save-excursion
       (if point (goto-char point))
-      (let* ((semantic-working-type nil)
-             ;; Disable parsing messages
-             (case-fold-search semantic-case-fold))
+      (let* ((case-fold-search semantic-case-fold))
         (:override-with-args ())))))
 
 (defun semantic-get-local-variables-default ()