mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

Minor fix.

Browse Source
This commit is contained in:
Chong Yidong 2006-01-13 02:36:49 +00:00
parent c798b7e89b
commit f354d94493
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/cus-theme.el
View File

@ -154,15 +154,15 @@ the directory " custom-theme-directory "\n\n")
(defun custom-theme-add-variable (symbol)
(interactive "vVariable name: ")
(save-excursion
(goto-char custom-theme-insert-variable-marker)
(cond ((assq symbol custom-theme-variables)
(message "%s is already in the theme" (symbol-name symbol)))
((not (boundp symbol))
(message "%s is not defined as a variable" (symbol-name symbol)))
((eq symbol 'custom-enabled-themes)
(message "Custom theme cannot contain `custom-enabled-themes'"))
(t
(cond ((assq symbol custom-theme-variables)
(message "%s is already in the theme" (symbol-name symbol)))
((not (boundp symbol))
(message "%s is not defined as a variable" (symbol-name symbol)))
((eq symbol 'custom-enabled-themes)
(message "Custom theme cannot contain `custom-enabled-themes'"))
(t
(save-excursion
(goto-char custom-theme-insert-variable-marker)
(widget-insert "\n")
(let ((widget (widget-create 'custom-variable
:tag (custom-unlispify-tag-name symbol)
@ -225,13 +225,13 @@ Optional EVENT is the location for the menu."
(defun custom-theme-add-face (symbol)
(interactive (list (read-face-name "Face name" nil nil)))
(save-excursion
(goto-char custom-theme-insert-face-marker)
(cond ((assq symbol custom-theme-faces)
(message "%s is already in the theme" (symbol-name symbol)))
((not (facep symbol))
(message "%s is not defined as a face" (symbol-name symbol)))
(t
(cond ((assq symbol custom-theme-faces)
(message "%s is already in the theme" (symbol-name symbol)))
((not (facep symbol))
(message "%s is not defined as a face" (symbol-name symbol)))
(t
(save-excursion
(goto-char custom-theme-insert-face-marker)
(widget-insert "\n")
(let ((widget (widget-create 'custom-face
:tag (custom-unlispify-tag-name symbol)