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*'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52653f917dfc067c41ae971b85349d1bfabe26f7..5164207a5ce6cdec3d01c3386e279e8c954d459f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/custom.el b/lisp/custom.el
index 923321c03c9648d9eb157599a16a6d173309bbdb..cf06fe27f4deb949fd01abdf33beee420e3e6bd4 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -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)))))