mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

lisp/custom.el: Trivial fixes.

Browse Source 
* custom.el (custom-known-themes): Reflow docstring.
  (custom-theme-load-path): Fix typo in docstring.
  (load-theme): Fix typo in error message.
  (custom-available-themes, custom-variable-theme-value):
  Use `let', not `let*'.
This commit is contained in:
Juanma Barranquero 2011-03-17 03:30:27 +01:00
parent 580b66d801
commit 171fc304ac
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2011-03-17 Juanma Barranquero <lekktu@gmail.com>
* custom.el (custom-known-themes): Reflow docstring.
(custom-theme-load-path): Fix typo in docstring.
(load-theme): Fix typo in error message.
(custom-available-themes, custom-variable-theme-value):
Use `let', not `let*'.
2011-03-17 Jay Belanger <jay.p.belanger@gmail.com>
* calc/README: Mention inclusion of musical notes.

16
lisp/custom.el
View File

@ -789,10 +789,10 @@ E.g. dumped variables whose default depends on run-time information."
(defvar custom-known-themes '(user changed)
"Themes that have been defined with `deftheme'.
The default value is the list (user changed). The theme `changed'
contains the settings before custom themes are applied. The
theme `user' contains all the settings the user customized and saved.
Additional themes declared with the `deftheme' macro will be added to
the front of this list.")
contains the settings before custom themes are applied. The theme
`user' contains all the settings the user customized and saved.
Additional themes declared with the `deftheme' macro will be added
to the front of this list.")
(defsubst custom-theme-p (theme)
"Non-nil when THEME has been defined."
@ -1071,7 +1071,7 @@ order. Each element in the list should be one of the following:
named \"themes\" in `data-directory').
- a directory name (a string).
Each theme file is named NAME-theme.el, where THEME is the theme
Each theme file is named THEME-theme.el, where THEME is the theme
name."
:type '(repeat (choice (const :tag "custom-theme-directory"
custom-theme-directory)
@ -1143,7 +1143,7 @@ Return t if THEME was successfully loaded, nil otherwise."
'("" "c")))
hash)
(unless fn
(error "Unable to find theme file for `%s'." theme))
(error "Unable to find theme file for `%s'" theme))
(with-temp-buffer
(insert-file-contents fn)
(setq hash (sha1 (current-buffer)))
@ -1209,7 +1209,7 @@ NAME should be a symbol."
(defun custom-available-themes ()
"Return a list of available Custom themes (symbols)."
(let* (sym themes)
(let (sym themes)
(dolist (dir (custom-theme--load-path))
(when (file-directory-p dir)
(dolist (file (file-expand-wildcards
@ -1335,7 +1335,7 @@ That is to say, it specifies what the value should be according to
currently enabled custom themes.
This function returns nil if no custom theme specifies a value for VARIABLE."
(let* ((theme-value (get variable 'theme-value)))
(let ((theme-value (get variable 'theme-value)))
(if theme-value
(cdr (car theme-value)))))