comparison lisp/custom.el @ 67943:6130ad6751ca

(custom-load-themes): Function deleted.

67942:8170e87ad98f

(defun custom-theme-enabled-p (theme)
  "Return non-nil if THEME is enabled."
  (memq theme custom-enabled-themes))

(defun provide-theme (theme)
  "Indicate that this file provides THEME.
Add THEME to `custom-loaded-themes', and `provide' whatever
feature name is stored in THEME's property `theme-feature'.

Usually the `theme-feature' property contains a symbol created
by `custom-make-theme-feature'."
  (custom-check-theme theme)
  (provide (get theme 'theme-feature))

This signals an error if THEME does not specify any theme
settings.  Theme settings are set using `load-theme'."
  (interactive "SEnable Custom theme: ")
  (let ((settings (get theme 'theme-settings)))
    (if (and (not (eq theme 'user)) (null settings))
	(error "No theme settings defined in %s." (symbol-name theme)))
    (dolist (s settings)
      (let* ((prop (car s))
	     (symbol (cadr s))
	     (spec-list (get symbol prop)))
	(put symbol prop (cons (cddr s) (assq-delete-all theme spec-list)))

  (unless (eq theme 'user)
    (enable-theme 'user)))

(defun disable-theme (theme)
  "Disable all variable and face settings defined by THEME.
See `custom-known-themes' for a list of known themes."
  (interactive "SDisable Custom theme: ")
  (let ((settings (get theme 'theme-settings)))
    (dolist (s settings)
      (let* ((prop (car s))
	     (symbol (cadr s))
	     (spec-list (get symbol prop)))
	(put symbol prop (assq-delete-all theme spec-list))
	(if (eq prop 'theme-value)
	    (custom-theme-recalc-variable symbol)
	  (custom-theme-recalc-face symbol)))))
  (setq custom-enabled-themes
	(delq theme custom-enabled-themes)))

(defun custom-theme-value (theme setting-list)
  "Determine the value specified for THEME according to SETTING-LIST.

67943:6130ad6751ca

(defun custom-theme-enabled-p (theme)
  "Return non-nil if THEME is enabled."
  (memq theme custom-enabled-themes))

(defun provide-theme (theme)
  "Indicate that this file provides THEME, and mark it as enabled.
Add THEME to `custom-loaded-themes' and `custom-enabled-themes',
and `provide' the feature name stored in THEME's property `theme-feature'.

Usually the `theme-feature' property contains a symbol created
by `custom-make-theme-feature'."
  (custom-check-theme theme)
  (provide (get theme 'theme-feature))

This signals an error if THEME does not specify any theme
settings.  Theme settings are set using `load-theme'."
  (interactive "SEnable Custom theme: ")
  (let ((settings (get theme 'theme-settings)))
    (unless (or (eq theme 'user) (memq theme custom-loaded-themes))
      (error "Theme %s not defined" (symbol-name theme)))
    (dolist (s settings)
      (let* ((prop (car s))
	     (symbol (cadr s))
	     (spec-list (get symbol prop)))
	(put symbol prop (cons (cddr s) (assq-delete-all theme spec-list)))

  (unless (eq theme 'user)
    (enable-theme 'user)))

(defun disable-theme (theme)
  "Disable all variable and face settings defined by THEME.
See `custom-enabled-themes' for a list of known themes."
  (interactive "SDisable Custom theme: ")
  (when (memq theme custom-enabled-themes)
    (let ((settings (get theme 'theme-settings)))
      (dolist (s settings)
	(let* ((prop (car s))
	       (symbol (cadr s))
	       (spec-list (get symbol prop)))
	  (put symbol prop (assq-delete-all theme spec-list))
	  (if (eq prop 'theme-value)
	      (custom-theme-recalc-variable symbol)
	    (custom-theme-recalc-face symbol))))))
  (setq custom-enabled-themes
	(delq theme custom-enabled-themes)))

(defun custom-theme-value (theme setting-list)
  "Determine the value specified for THEME according to SETTING-LIST.