+(defun cedet-gnu-global-create/update-database (&optional dir)
+ "Create a GNU Global database in DIR.
+If a database already exists, then just update it."
+ (interactive "DDirectory: ")
+ (let ((root (cedet-gnu-global-root dir)))
+ (if root (setq dir root))
+ (let ((default-directory dir))
+ (cedet-gnu-global-gtags-call
+ (when root
+ '("-i");; Incremental update flag.
+ )))))
+