Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* cedet/semantic.el (semantic-parser-working-message): Use a less

Browse source 
technical parsing message.
(semantic-mode): Require semantic/db-ebrowse if we need to.

* cedet/semantic/util-modes.el (semantic-highlight-func-mode): Doc fix.
This commit is contained in:
Chong Yidong 2009-09-21 19:05:56 +00:00
parent 546321e293
commit 17e1f4bc65
3 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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

9
lisp/cedet/semantic.el
View file

@ -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 @@ Bufferse larger than this will display the working progress bar.")
"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 @@ Semantic mode."
(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

4
lisp/cedet/semantic/util-modes.el
View file

@ -1165,10 +1165,10 @@ current tag declaration."
"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.