Mercurial > emacs
changeset 104512:aa2a07e5db2f
* cedet/semantic.el (semantic-parser-working-message): Use a less
technical parsing message.
(semantic-mode): Require semantic/db-ebrowse if we need to.
* cedet/semantic/util-modes.el (semantic-highlight-func-mode): Doc fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 21 Sep 2009 19:05:56 +0000 |
| parents | afd748c5780c |
| children | a6a812dd2d88 |
| files | lisp/ChangeLog lisp/cedet/semantic.el lisp/cedet/semantic/util-modes.el |
| diffstat | 3 files changed, 17 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Sep 21 18:24:56 2009 +0000 +++ b/lisp/ChangeLog Mon Sep 21 19:05:56 2009 +0000 @@ -1,3 +1,12 @@ +2009-09-21 Chong Yidong <cyd@stupidchicken.com> + + * cedet/semantic.el (semantic-parser-working-message): Use a less + technical parsing message. + (semantic-mode): Require semantic/db-ebrowse if we need to. + + * cedet/semantic/util-modes.el (semantic-highlight-func-mode): Doc + fix. + 2009-09-21 Chong Yidong <cyd@stupidchicken.com> * cedet/semantic/db.el (semanticdb--inhibit-make-directory): New
--- a/lisp/cedet/semantic.el Mon Sep 21 18:24:56 2009 +0000 +++ b/lisp/cedet/semantic.el Mon Sep 21 19:05:56 2009 +0000 @@ -37,6 +37,7 @@ "Current version of Semantic.") (declare-function inversion-test "inversion") +(declare-function semanticdb-load-ebrowse-caches "semantic/db-ebrowse") (defun semantic-require-version (major minor &optional beta) "Non-nil if this version of semantic does not satisfy a specific version. @@ -525,9 +526,10 @@ "Return the message string displayed while parsing. If optional argument ARG is non-nil it is appended to the message string." - (if semantic-parser-name - (format "%s/%s..." semantic-parser-name (or arg "")) - (format "%s" (or arg "")))) + (concat "Parsing" + (if arg (format " %s" arg)) + (if semantic-parser-name (format " (%s)" semantic-parser-name)) + "...")) ;;; Application Parser Entry Points ;; @@ -878,6 +880,7 @@ (when (and (boundp 'semanticdb-default-system-save-directory) (stringp semanticdb-default-system-save-directory) (file-exists-p semanticdb-default-system-save-directory)) + (require 'semantic/db-ebrowse) (semanticdb-load-ebrowse-caches))) (add-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) ;; Add mode-local hooks
--- a/lisp/cedet/semantic/util-modes.el Mon Sep 21 18:24:56 2009 +0000 +++ b/lisp/cedet/semantic/util-modes.el Mon Sep 21 19:05:56 2009 +0000 @@ -1165,10 +1165,10 @@ "Minor mode to highlight the first line of the current tag. Enables/disables making the header line of functions sticky. A function (or other tag class specified by -`semantic-stickfunc-sticky-classes') is highlighted, meaning the +`semantic-stickyfunc-sticky-classes') is highlighted, meaning the first line which describes the rest of the construct. -See `semantic-stickfunc-mode' for putting a function in the +See `semantic-stickyfunc-mode' for putting a function in the header line. This mode recycles the stickyfunc configuration classes list.