Function: tree-widget-set-parent-theme

tree-widget-set-parent-theme is a byte-compiled function defined in tree-widget.el.gz.

Signature

(tree-widget-set-parent-theme NAME)

Documentation

Set to NAME the parent theme of the current theme.

The default parent theme is the "default" theme.

Source Code

;; Defined in /usr/src/emacs/lisp/tree-widget.el.gz
(defsubst tree-widget-set-parent-theme (name)
  "Set to NAME the parent theme of the current theme.
The default parent theme is the \"default\" theme."
  (unless (member name (aref tree-widget--theme 0))
    (aset tree-widget--theme 0
          (append (aref tree-widget--theme 0) (list name)))
    ;; Load the theme setup from the first directory where the theme
    ;; is found.
    (catch 'found
      (dolist (dir (tree-widget-themes-path))
        (setq dir (expand-file-name name dir))
        (when (file-accessible-directory-p dir)
          (throw 'found
                 (load (expand-file-name
                        "tree-widget-theme-setup" dir)
                       t)))))))