diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-09-21 18:20:50 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-09-21 18:20:50 +0000 |
| commit | 5bebb3324906e2ba7ce90007b3fc2971430e8427 (patch) | |
| tree | a869b2c6faf9e8f17caa152b06edf30427411f13 /lisp/cedet/semantic/db.el | |
| parent | 16feddc402fad45e207560c25e6274de348f0782 (diff) | |
| download | emacs-5bebb3324906e2ba7ce90007b3fc2971430e8427.tar.gz | |
* cedet/semantic/db.el (semanticdb--inhibit-make-directory): New var.
(semanticdb-save-all-db): Use it.
* cedet/semantic/db-file.el (semanticdb-default-save-directory):
Save in user-emacs-directory instead of the home directory.
(semanticdb-file-directory-exists-p): Avoid prompting the user
multiple times.
Diffstat (limited to 'lisp/cedet/semantic/db.el')
| -rw-r--r-- | lisp/cedet/semantic/db.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 813786fb184..ece8ea765ef 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el @@ -656,11 +656,16 @@ form." (semanticdb-save-db semanticdb-current-database) (message "Saving current tag summaries...done")) +;; This prevents Semanticdb from querying multiple times if the users +;; answers "no" to creating the Semanticdb directory. +(defvar semanticdb--inhibit-create-file-directory) + (defun semanticdb-save-all-db () "Save all semantic tag databases." (interactive) (message "Saving tag summaries...") - (mapc 'semanticdb-save-db semanticdb-database-list) + (let ((semanticdb--inhibit-make-directory nil)) + (mapc 'semanticdb-save-db semanticdb-database-list)) (message "Saving tag summaries...done")) (defun semanticdb-save-all-db-idle () |