Mercurial > emacs
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.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 21 Sep 2009 18:20:50 +0000 |
parents | 8db96f200ac8 |
children | bbd7017a25d9 |
line wrap: on
line diff
--- 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 ()