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

the progress reporter entirely.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb8c9a5..301bced 100644 (file)
--- 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 478796e..e74bb8f 100644 (file)
--- 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 ()