mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source 
Move from here...
* lisp/cedet/semantic/fw.el: ...to here.
This commit is contained in:
Glenn Morris 2013-09-20 13:21:28 -04:00
parent 525540c063
commit 1e835c22e8
3 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/cedet/ChangeLog
View File

@ -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):

8
lisp/cedet/semantic.el
View File

@ -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

9
lisp/cedet/semantic/fw.el
View File

@ -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