Function: thumbs-thumbsdir

thumbs-thumbsdir is a byte-compiled function defined in thumbs.el.gz.

Signature

(thumbs-thumbsdir)

Documentation

Return the current thumbnails directory (from thumbs-thumbsdir(var)/thumbs-thumbsdir(fun)).

Create the thumbnails directory if it does not exist.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/thumbs.el.gz
(defun thumbs-thumbsdir ()
  "Return the current thumbnails directory (from `thumbs-thumbsdir').
Create the thumbnails directory if it does not exist."
  (let ((thumbs-thumbsdir (file-name-as-directory
                           (expand-file-name thumbs-thumbsdir))))
    (unless (file-directory-p thumbs-thumbsdir)
      (make-directory thumbs-thumbsdir t)
      (message "Creating thumbnails directory"))
    thumbs-thumbsdir))