* lisp/cedet/semantic.el (semantic-new-buffer-fcn-was-run, semantic-active-p):

Move from here...
* lisp/cedet/semantic/fw.el: ...to here.

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 61d79b16cb0e6f4ac8ae44ec23bbd02110224829..ed3301510f0f92544a8ab7edbc6b41ecadaf86e6 100644 (file)
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,9 @@
+2013-09-20  Glenn Morris  <rgm@gnu.org>
+
+       * semantic.el (semantic-new-buffer-fcn-was-run, semantic-active-p):
+       Move from here...
+       * semantic/fw.el: ...to here.
+
 2013-09-18  Glenn Morris  <rgm@gnu.org>
 
        * semantic/find.el (semantic-brute-find-first-tag-by-name):

diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 909902a71fe10fb82fe100fea021fe0dd8a914ce..2d62d848625cfa20d4b257eb9d5982cfa166a322 100644 (file)
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -311,14 +311,6 @@ a parse of the buffer.")
 (semantic-varalias-obsolete 'semantic-init-db-hooks
                            'semantic-init-db-hook "23.2")
 
-(defvar semantic-new-buffer-fcn-was-run nil
-  "Non-nil after `semantic-new-buffer-fcn' has been executed.")
-(make-variable-buffer-local 'semantic-new-buffer-fcn-was-run)
-
-(defsubst semantic-active-p ()
-  "Return non-nil if the current buffer was set up for parsing."
-  semantic-new-buffer-fcn-was-run)
-
 (defsubst semantic-error-if-unparsed ()
   "Raise an error if current buffer was not parsed by Semantic."
   (unless semantic-new-buffer-fcn-was-run

diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el
index 7850e0462b2a202f2bf222bdac8e9c7f28a98761..825cdc9f0a414a31e8ed8681a359f1af6c392b74 100644 (file)
--- a/lisp/cedet/semantic/fw.el
+++ b/lisp/cedet/semantic/fw.el
@@ -321,6 +321,15 @@ Avoid using a large BODY since it is duplicated."
 
 ;;; Misc utilities
 ;;
+
+(defvar semantic-new-buffer-fcn-was-run nil
+  "Non-nil after `semantic-new-buffer-fcn' has been executed.")
+(make-variable-buffer-local 'semantic-new-buffer-fcn-was-run)
+
+(defsubst semantic-active-p ()
+  "Return non-nil if the current buffer was set up for parsing."
+  semantic-new-buffer-fcn-was-run)
+
 (defsubst semantic-map-buffers (function)
   "Run FUNCTION for each Semantic enabled buffer found.
 FUNCTION does not have arguments.  When FUNCTION is entered