Function: custom-theme--load-path

custom-theme--load-path is a byte-compiled function defined in custom.el.gz.

Signature

(custom-theme--load-path)

Documentation

Expand custom-theme-load-path into a list of directories.

Members of custom-theme-load-path that either don't exist or are not directories are omitted from the expansion.

Source Code

;; Defined in /usr/src/emacs/lisp/custom.el.gz
(defun custom-theme--load-path ()
  "Expand `custom-theme-load-path' into a list of directories.
Members of `custom-theme-load-path' that either don't exist or
are not directories are omitted from the expansion."
  (let (lpath)
    (dolist (f custom-theme-load-path)
      (cond ((eq f 'custom-theme-directory)
	     (setq f custom-theme-directory))
	    ((eq f t)
	     (setq f (expand-file-name "themes" data-directory))))
      (if (file-directory-p f)
	  (push f lpath)))
    (nreverse lpath)))