mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* cus-edit.el (custom-reset-menu, custom-reset, Custom-mode-menu)

Browse source 
(custom-variable-menu, custom-face-menu, custom-group-menu)
	(custom-buffer-create-internal): Change "Reset" to "Show".
	Reorder menu items.
	(custom-link): New face for Info links.
	(custom-buffer-create-internal, custom-manual): Use it.

	* wid-edit.el (widget-default-mouse-face-get): New function.
	(widget-specify-button): Handle mouse-face like button-face.

	* custom.el (load-theme): Clear old theme settings if reloading.
This commit is contained in:
Chong Yidong 2006-01-04 15:56:08 +00:00
parent 205c40f84b
commit 73e60f534c
4 changed files with 124 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/custom.el
View file

@ -1007,11 +1007,17 @@ property `theme-feature' (which is usually a symbol created by
(enable-theme 'user)))
(defun load-theme (theme)
"Try to load a theme's settings from its file.
"Load a theme's settings from its file.
This also enables the theme; use `disable-theme' to disable it."
;; Note we do no check for validity of the theme here.
;; This allows to pull in themes by a file-name convention
(interactive "SCustom theme name: ")
;; If reloading, clear out the old theme settings.
(when (custom-theme-p theme)
(disable-theme theme)
(put theme 'theme-settings nil)
(put theme 'theme-feature nil)
(put theme 'theme-documentation nil))
(let ((load-path (if (file-directory-p custom-theme-directory)
(cons custom-theme-directory load-path)
load-path)))