]> git.eshelyaron.com Git - emacs.git/commitdiff
* cedet/semantic/mru-bookmark.el (global-semantic-mru-bookmark-mode)
authorChong Yidong <cyd@stupidchicken.com>
Mon, 14 Dec 2009 04:17:00 +0000 (04:17 +0000)
committerChong Yidong <cyd@stupidchicken.com>
Mon, 14 Dec 2009 04:17:00 +0000 (04:17 +0000)
(semantic-mru-bookmark-mode): Doc fixes.

* cedet/semantic/db.el (semanticdb-cache-get): Use error instead
of assert.

lisp/ChangeLog
lisp/cedet/semantic/db.el
lisp/cedet/semantic/mru-bookmark.el

index a61b92b986c88787e46e3c8bea7c341a441bce4c..d4c117e43b6a29acb2eaef39d7c3e2c82c3225a4 100644 (file)
@@ -1,3 +1,11 @@
+2009-12-14  Chong Yidong  <cyd@stupidchicken.com>
+
+       * 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.
+
 2009-12-13  Glenn Morris  <rgm@gnu.org>
 
        * mail/emacsbug.el (message-sort-headers): Define for compiler.
index b388a7d4647ae94db9127782443656a63dc7beb6..796250ce0be65e3397eecc55b18b902bb826055e 100644 (file)
@@ -450,7 +450,8 @@ See the file semantic-scope.el for an example."
   "Get a cache object on TABLE of class DESIRED-CLASS.
 This method will create one if none exists with no init arguments
 other than :table."
-  (assert (child-of-class-p desired-class 'semanticdb-abstract-cache))
+  (unless (child-of-class-p desired-class 'semanticdb-abstract-cache)
+    (error "Invalid SemanticDB cache"))
   (let ((cache (oref table cache))
        (obj nil))
     (while (and (not obj) cache)
@@ -500,7 +501,8 @@ See the file semantic-scope.el for an example."
   "Get a cache object on DB of class DESIRED-CLASS.
 This method will create one if none exists with no init arguments
 other than :table."
-  (assert (child-of-class-p desired-class 'semanticdb-abstract-db-cache))
+  (unless (child-of-class-p desired-class 'semanticdb-abstract-cache)
+    (error "Invalid SemanticDB cache"))
   (let ((cache (oref db cache))
        (obj nil))
     (while (and (not obj) cache)
index ca1bf3eea7e9302eb9cd9d1ed9247b795842b595..c2b55b6b38519c79aef10d00e6bd0a4f32a8291d 100644 (file)
@@ -240,9 +240,9 @@ This function pushes tags onto the tag ring."
 ;; Tracking minor mode.
 
 (defcustom global-semantic-mru-bookmark-mode nil
-  "*If non-nil enable global use of variable `semantic-mru-bookmark-mode'.
-When this mode is enabled, changes made to a buffer are highlighted
-until the buffer is reparsed."
+  "If non-nil, enable `semantic-mru-bookmark-mode' globally.
+When this mode is enabled, Emacs keeps track of which tags have
+been edited, and you can re-visit them with \\[semantic-mrub-switch-tags]."
   :group 'semantic
   :group 'semantic-modes
   :type 'boolean
@@ -306,8 +306,8 @@ minor mode is enabled."
 
 (defun semantic-mru-bookmark-mode (&optional arg)
   "Minor mode for tracking tag-based bookmarks automatically.
-Tag based bookmarks a tracked based on editing and viewing habits
-and can then be navigated via the MRU bookmark keymap.
+When this mode is enabled, Emacs keeps track of which tags have
+been edited, and you can re-visit them with \\[semantic-mrub-switch-tags].
 
 \\{semantic-mru-bookmark-mode-map}