diff lisp/cedet/semantic/db.el @ 104510:8c44231178fc

* 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.

--- a/lisp/cedet/semantic/db.el	Mon Sep 21 17:49:07 2009 +0000
+++ b/lisp/cedet/semantic/db.el	Mon Sep 21 18:20:50 2009 +0000
@@ -656,11 +656,16 @@
   (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 ()