diff options
| author | Chong Yidong | 2009-09-21 19:05:56 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-09-21 19:05:56 +0000 |
| commit | 17e1f4bc65ff059a6f05068dc2d64d7130719fd7 (patch) | |
| tree | 10fdeb079809326cd31e8714764441fa1e17bb14 | |
| parent | 546321e2932d2f71397005bbd68ef06c65bf8b04 (diff) | |
| download | emacs-17e1f4bc65ff059a6f05068dc2d64d7130719fd7.tar.gz emacs-17e1f4bc65ff059a6f05068dc2d64d7130719fd7.zip | |
* 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.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/cedet/semantic.el | 9 | ||||
| -rw-r--r-- | lisp/cedet/semantic/util-modes.el | 4 |
3 files changed, 17 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4f978958cd5..132e4f117ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,14 @@ | |||
| 1 | 2009-09-21 Chong Yidong <cyd@stupidchicken.com> | 1 | 2009-09-21 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 2 | ||
| 3 | * cedet/semantic.el (semantic-parser-working-message): Use a less | ||
| 4 | technical parsing message. | ||
| 5 | (semantic-mode): Require semantic/db-ebrowse if we need to. | ||
| 6 | |||
| 7 | * cedet/semantic/util-modes.el (semantic-highlight-func-mode): Doc | ||
| 8 | fix. | ||
| 9 | |||
| 10 | 2009-09-21 Chong Yidong <cyd@stupidchicken.com> | ||
| 11 | |||
| 3 | * cedet/semantic/db.el (semanticdb--inhibit-make-directory): New | 12 | * cedet/semantic/db.el (semanticdb--inhibit-make-directory): New |
| 4 | var. | 13 | var. |
| 5 | (semanticdb-save-all-db): Use it. | 14 | (semanticdb-save-all-db): Use it. |
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 17c31a65c7f..1ab342f7676 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el | |||
| @@ -37,6 +37,7 @@ | |||
| 37 | "Current version of Semantic.") | 37 | "Current version of Semantic.") |
| 38 | 38 | ||
| 39 | (declare-function inversion-test "inversion") | 39 | (declare-function inversion-test "inversion") |
| 40 | (declare-function semanticdb-load-ebrowse-caches "semantic/db-ebrowse") | ||
| 40 | 41 | ||
| 41 | (defun semantic-require-version (major minor &optional beta) | 42 | (defun semantic-require-version (major minor &optional beta) |
| 42 | "Non-nil if this version of semantic does not satisfy a specific version. | 43 | "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.") | |||
| 525 | "Return the message string displayed while parsing. | 526 | "Return the message string displayed while parsing. |
| 526 | If optional argument ARG is non-nil it is appended to the message | 527 | If optional argument ARG is non-nil it is appended to the message |
| 527 | string." | 528 | string." |
| 528 | (if semantic-parser-name | 529 | (concat "Parsing" |
| 529 | (format "%s/%s..." semantic-parser-name (or arg "")) | 530 | (if arg (format " %s" arg)) |
| 530 | (format "%s" (or arg "")))) | 531 | (if semantic-parser-name (format " (%s)" semantic-parser-name)) |
| 532 | "...")) | ||
| 531 | 533 | ||
| 532 | ;;; Application Parser Entry Points | 534 | ;;; Application Parser Entry Points |
| 533 | ;; | 535 | ;; |
| @@ -878,6 +880,7 @@ Semantic mode." | |||
| 878 | (when (and (boundp 'semanticdb-default-system-save-directory) | 880 | (when (and (boundp 'semanticdb-default-system-save-directory) |
| 879 | (stringp semanticdb-default-system-save-directory) | 881 | (stringp semanticdb-default-system-save-directory) |
| 880 | (file-exists-p semanticdb-default-system-save-directory)) | 882 | (file-exists-p semanticdb-default-system-save-directory)) |
| 883 | (require 'semantic/db-ebrowse) | ||
| 881 | (semanticdb-load-ebrowse-caches))) | 884 | (semanticdb-load-ebrowse-caches))) |
| 882 | (add-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) | 885 | (add-hook 'mode-local-init-hook 'semantic-new-buffer-fcn) |
| 883 | ;; Add mode-local hooks | 886 | ;; Add mode-local hooks |
diff --git a/lisp/cedet/semantic/util-modes.el b/lisp/cedet/semantic/util-modes.el index ef7ec6cc1a9..4df7e68d338 100644 --- a/lisp/cedet/semantic/util-modes.el +++ b/lisp/cedet/semantic/util-modes.el | |||
| @@ -1165,10 +1165,10 @@ current tag declaration." | |||
| 1165 | "Minor mode to highlight the first line of the current tag. | 1165 | "Minor mode to highlight the first line of the current tag. |
| 1166 | Enables/disables making the header line of functions sticky. | 1166 | Enables/disables making the header line of functions sticky. |
| 1167 | A function (or other tag class specified by | 1167 | A function (or other tag class specified by |
| 1168 | `semantic-stickfunc-sticky-classes') is highlighted, meaning the | 1168 | `semantic-stickyfunc-sticky-classes') is highlighted, meaning the |
| 1169 | first line which describes the rest of the construct. | 1169 | first line which describes the rest of the construct. |
| 1170 | 1170 | ||
| 1171 | See `semantic-stickfunc-mode' for putting a function in the | 1171 | See `semantic-stickyfunc-mode' for putting a function in the |
| 1172 | header line. This mode recycles the stickyfunc configuration | 1172 | header line. This mode recycles the stickyfunc configuration |
| 1173 | classes list. | 1173 | classes list. |
| 1174 | 1174 | ||