From 1e835c22e8ec9e387b4275196103d4d6d0617899 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 20 Sep 2013 13:21:28 -0400 Subject: [PATCH] * lisp/cedet/semantic.el (semantic-new-buffer-fcn-was-run, semantic-active-p): Move from here... * lisp/cedet/semantic/fw.el: ...to here. --- lisp/cedet/ChangeLog | 6 ++++++ lisp/cedet/semantic.el | 8 -------- lisp/cedet/semantic/fw.el | 9 +++++++++ 3 files changed, 15 insertions(+), 8 deletions(-) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 61d79b16cb0..ed3301510f0 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,9 @@ +2013-09-20 Glenn Morris + + * semantic.el (semantic-new-buffer-fcn-was-run, semantic-active-p): + Move from here... + * semantic/fw.el: ...to here. + 2013-09-18 Glenn Morris * semantic/find.el (semantic-brute-find-first-tag-by-name): diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 909902a71fe..2d62d848625 100644 --- 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 7850e0462b2..825cdc9f0a4 100644 --- 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 -- 2.39.2