diff options
Diffstat (limited to 'lisp/cedet/semantic/fw.el')
| -rw-r--r-- | lisp/cedet/semantic/fw.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index b7e5f7f7a0e..49790861632 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -310,6 +310,17 @@ FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'" (find-file-noselect file nowarn rawfile wildcards))) )) +;;; Database restriction settings +;; +(defmacro semanticdb-without-unloaded-file-searches (forms) + "Execute FORMS with `unloaded' removed from the current throttle." + `(let ((semanticdb-find-default-throttle + (if (featurep 'semanticdb-find) + (remq 'unloaded semanticdb-find-default-throttle) + nil))) + ,forms)) +(put 'semanticdb-without-unloaded-file-searches 'lisp-indent-function 1) + ;; ;;; Editor goodies ;-) ;; ;; |