[Emacs-diffs] /srv/bzr/emacs/trunk r103677: lisp/custom.el: Trivial fixes.

[Juanma Barranquero]

------------------------------------------------------------
revno: 103677
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2011-03-17 03:30:27 +0100
message:
  lisp/custom.el: Trivial fixes.
  
  * 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*'.
modified:
  lisp/ChangeLog
  lisp/custom.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-17 01:30:08 +0000
+++ b/lisp/ChangeLog    2011-03-17 02:30:27 +0000
@@ -1,3 +1,11 @@
+2011-03-17  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * calc/README: Mention inclusion of musical notes.

=== modified file 'lisp/custom.el'
--- a/lisp/custom.el    2011-03-08 02:49:20 +0000
+++ b/lisp/custom.el    2011-03-17 02:30:27 +0000
@@ -789,10 +789,10 @@
 (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 @@
   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 @@
                         '("" "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 @@
 
 (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 @@
 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)))))