Function: semanticdb-ebrowse-load-helper

semanticdb-ebrowse-load-helper is a byte-compiled function defined in db-ebrowse.el.gz.

Signature

(semanticdb-ebrowse-load-helper DIRECTORY)

Documentation

Create the semanticdb database via ebrowse for directory.

If DIRECTORY is found to be defunct, it won't load the DB, and will warn instead.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/db-ebrowse.el.gz
(defun semanticdb-ebrowse-load-helper (directory)
  "Create the semanticdb database via ebrowse for directory.
If DIRECTORY is found to be defunct, it won't load the DB, and will
warn instead."
  (if (file-directory-p directory)
      (semanticdb-create-database 'semanticdb-project-database-ebrowse
				  directory)
    (let* ((BF (semanticdb-ebrowse-file-for-directory directory))
	   (BFL (concat BF "-load.el"))
	   (BFLB (concat BF "-load.el~")))
      (save-window-excursion
	(with-output-to-temp-buffer "*FILES TO DELETE*"
	  (princ "The following BROWSE files are obsolete.\n\n")
	  (princ BF)
	  (princ "\n")
	  (princ BFL)
	  (princ "\n")
	  (when (file-exists-p BFLB)
	    (princ BFLB)
	    (princ "\n"))
	  )
	(when (y-or-n-p (format
			 "Warning: Obsolete BROWSE file for: %s\nDelete? "
			 directory))
	  (delete-file BF)
	  (delete-file BFL)
	  (when (file-exists-p BFLB)
	    (delete-file BFLB))
	  )))))