Function: image-dired-sane-db-file

image-dired-sane-db-file is a byte-compiled function defined in image-dired-tags.el.gz.

Signature

(image-dired-sane-db-file)

Documentation

Check if image-dired-tags-db-file exists.

If not, try to create it (including any parent directories). Signal error if there are problems creating it.

Source Code

;; Defined in /usr/src/emacs/lisp/image/image-dired-tags.el.gz
(defun image-dired-sane-db-file ()
  "Check if `image-dired-tags-db-file' exists.
If not, try to create it (including any parent directories).
Signal error if there are problems creating it."
  (require 'image-dired)                ; for `image-dired-dir'
  (or (file-exists-p image-dired-tags-db-file)
      (let (dir buf)
        (unless (file-directory-p (setq dir (file-name-directory
                                             image-dired-tags-db-file)))
          (with-file-modes #o700
            (make-directory dir t)))
        (with-current-buffer (setq buf (create-file-buffer
                                        image-dired-tags-db-file))
          (with-file-modes #o600
            (write-file image-dired-tags-db-file)))
        (kill-buffer buf)
        (file-exists-p image-dired-tags-db-file))
      (error "Could not create %s" image-dired-tags-db-file)))