[Emacs-diffs] emacs/lisp ChangeLog cedet/semantic/ctxt.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/08 22:53:33

Modified files:
        lisp           : ChangeLog 
        lisp/cedet/semantic: ctxt.el 

Log message:
        * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable
        the progress reporter entirely.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16583&r2=1.16584
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/ctxt.el?cvsroot=emacs&r1=1.5&r2=1.6

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16583
retrieving revision 1.16584
diff -u -b -r1.16583 -r1.16584
--- ChangeLog   8 Nov 2009 21:49:49 -0000       1.16583
+++ ChangeLog   8 Nov 2009 22:53:30 -0000       1.16584
@@ -1,7 +1,12 @@
+2009-11-08  Chong Yidong  <address@hidden>
+
+       * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable
+       the progress reporter entirely.
+
 2009-11-08  Kevin Ryde  <address@hidden>
 
        * 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  <address@hidden>
 

Index: cedet/semantic/ctxt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/ctxt.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- cedet/semantic/ctxt.el      3 Nov 2009 21:45:33 -0000       1.5
+++ cedet/semantic/ctxt.el      8 Nov 2009 22:53:33 -0000       1.6
@@ -156,15 +156,11 @@
   "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 ()