From 9bf7dc8aba965b831c7356bd4d28c431752c02f6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 8 Nov 2009 22:53:30 +0000 Subject: [PATCH] * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable the progress reporter entirely. --- lisp/ChangeLog | 7 ++++++- lisp/cedet/semantic/ctxt.el | 10 +++------- 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 + + * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable + the progress reporter entirely. + 2009-11-08 Kevin Ryde * 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 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 () -- 2.39.2