diff options
| author | Chong Yidong | 2009-12-14 04:17:00 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-12-14 04:17:00 +0000 |
| commit | f192624c76d391df6401fc49bccfe785b0c3fe59 (patch) | |
| tree | df68fba02d95aba8a5fc5f503eda05ea263e8b8e | |
| parent | 8e6874337fd3451534f1f02a507fe8ead9aae177 (diff) | |
| download | emacs-f192624c76d391df6401fc49bccfe785b0c3fe59.tar.gz emacs-f192624c76d391df6401fc49bccfe785b0c3fe59.zip | |
* cedet/semantic/mru-bookmark.el (global-semantic-mru-bookmark-mode)
(semantic-mru-bookmark-mode): Doc fixes.
* cedet/semantic/db.el (semanticdb-cache-get): Use error instead
of assert.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic/mru-bookmark.el | 10 |
3 files changed, 17 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a61b92b986c..d4c117e43b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2009-12-14 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * cedet/semantic/mru-bookmark.el (global-semantic-mru-bookmark-mode) | ||
| 4 | (semantic-mru-bookmark-mode): Doc fixes. | ||
| 5 | |||
| 6 | * cedet/semantic/db.el (semanticdb-cache-get): Use error instead | ||
| 7 | of assert. | ||
| 8 | |||
| 1 | 2009-12-13 Glenn Morris <rgm@gnu.org> | 9 | 2009-12-13 Glenn Morris <rgm@gnu.org> |
| 2 | 10 | ||
| 3 | * mail/emacsbug.el (message-sort-headers): Define for compiler. | 11 | * mail/emacsbug.el (message-sort-headers): Define for compiler. |
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index b388a7d4647..796250ce0be 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el | |||
| @@ -450,7 +450,8 @@ See the file semantic-scope.el for an example." | |||
| 450 | "Get a cache object on TABLE of class DESIRED-CLASS. | 450 | "Get a cache object on TABLE of class DESIRED-CLASS. |
| 451 | This method will create one if none exists with no init arguments | 451 | This method will create one if none exists with no init arguments |
| 452 | other than :table." | 452 | other than :table." |
| 453 | (assert (child-of-class-p desired-class 'semanticdb-abstract-cache)) | 453 | (unless (child-of-class-p desired-class 'semanticdb-abstract-cache) |
| 454 | (error "Invalid SemanticDB cache")) | ||
| 454 | (let ((cache (oref table cache)) | 455 | (let ((cache (oref table cache)) |
| 455 | (obj nil)) | 456 | (obj nil)) |
| 456 | (while (and (not obj) cache) | 457 | (while (and (not obj) cache) |
| @@ -500,7 +501,8 @@ See the file semantic-scope.el for an example." | |||
| 500 | "Get a cache object on DB of class DESIRED-CLASS. | 501 | "Get a cache object on DB of class DESIRED-CLASS. |
| 501 | This method will create one if none exists with no init arguments | 502 | This method will create one if none exists with no init arguments |
| 502 | other than :table." | 503 | other than :table." |
| 503 | (assert (child-of-class-p desired-class 'semanticdb-abstract-db-cache)) | 504 | (unless (child-of-class-p desired-class 'semanticdb-abstract-cache) |
| 505 | (error "Invalid SemanticDB cache")) | ||
| 504 | (let ((cache (oref db cache)) | 506 | (let ((cache (oref db cache)) |
| 505 | (obj nil)) | 507 | (obj nil)) |
| 506 | (while (and (not obj) cache) | 508 | (while (and (not obj) cache) |
diff --git a/lisp/cedet/semantic/mru-bookmark.el b/lisp/cedet/semantic/mru-bookmark.el index ca1bf3eea7e..c2b55b6b385 100644 --- a/lisp/cedet/semantic/mru-bookmark.el +++ b/lisp/cedet/semantic/mru-bookmark.el | |||
| @@ -240,9 +240,9 @@ This function pushes tags onto the tag ring." | |||
| 240 | ;; Tracking minor mode. | 240 | ;; Tracking minor mode. |
| 241 | 241 | ||
| 242 | (defcustom global-semantic-mru-bookmark-mode nil | 242 | (defcustom global-semantic-mru-bookmark-mode nil |
| 243 | "*If non-nil enable global use of variable `semantic-mru-bookmark-mode'. | 243 | "If non-nil, enable `semantic-mru-bookmark-mode' globally. |
| 244 | When this mode is enabled, changes made to a buffer are highlighted | 244 | When this mode is enabled, Emacs keeps track of which tags have |
| 245 | until the buffer is reparsed." | 245 | been edited, and you can re-visit them with \\[semantic-mrub-switch-tags]." |
| 246 | :group 'semantic | 246 | :group 'semantic |
| 247 | :group 'semantic-modes | 247 | :group 'semantic-modes |
| 248 | :type 'boolean | 248 | :type 'boolean |
| @@ -306,8 +306,8 @@ minor mode is enabled." | |||
| 306 | 306 | ||
| 307 | (defun semantic-mru-bookmark-mode (&optional arg) | 307 | (defun semantic-mru-bookmark-mode (&optional arg) |
| 308 | "Minor mode for tracking tag-based bookmarks automatically. | 308 | "Minor mode for tracking tag-based bookmarks automatically. |
| 309 | Tag based bookmarks a tracked based on editing and viewing habits | 309 | When this mode is enabled, Emacs keeps track of which tags have |
| 310 | and can then be navigated via the MRU bookmark keymap. | 310 | been edited, and you can re-visit them with \\[semantic-mrub-switch-tags]. |
| 311 | 311 | ||
| 312 | \\{semantic-mru-bookmark-mode-map} | 312 | \\{semantic-mru-bookmark-mode-map} |
| 313 | 313 | ||