Mercurial > emacs
changeset 105919:32e202ebbfda
* cedet/semantic/ctxt.el (semantic-get-local-variables): Disable
the progress reporter entirely.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 08 Nov 2009 22:53:30 +0000 |
| parents | b2ce7c8bf1e6 |
| children | 0a019b48e945 |
| files | lisp/ChangeLog lisp/cedet/semantic/ctxt.el |
| diffstat | 2 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Nov 08 21:49:49 2009 +0000 +++ b/lisp/ChangeLog Sun Nov 08 22:53:30 2009 +0000 @@ -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>
--- a/lisp/cedet/semantic/ctxt.el Sun Nov 08 21:49:49 2009 +0000 +++ b/lisp/cedet/semantic/ctxt.el Sun Nov 08 22:53:30 2009 +0000 @@ -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 ()