doc/lispref/buffers.texi: Add documentation for ido-record-command(s).

* lisp/ido.el (ido-record-command): Add doc string.

3 files changed, 16 insertions, 7 deletions

diff --git a/doc/misc/ido.texi b/doc/misc/ido.texi
index 48636a9fb92..e0b28e3b2cb 100644
--- a/doc/misc/ido.texi
+++ b/doc/misc/ido.texi
@@ -631,7 +631,7 @@ fraction of the frame width.
 @end defvr
 
 @defvr {User Option} ido-max-window-height
-If the value of this user option is non@code{nil}, its value will
+If the value of this user option is non-@code{nil}, its value will
 override the variable @code{max-mini-window-height}, which is the
 maximum height for resizing mini-windows (the minibuffer and the echo
 area).  If it's a floating point number, it specifies a fraction of
@@ -639,7 +639,12 @@ the mini-window frame's height.  If it's an integer, it specifies the
 number of lines.
 @end defvr
 
-@c @defvr {User Option} ido-record-commands
+@defvr {User Option} ido-record-commands
+If the value of this user option is non-@code{nil}, Ido will record
+commands in the variable @code{command-history}.  Note that non-Ido
+equivalent is recorded.
+@end defvr
+
 @c @defvr {User Option} ido-enable-last-directory-history
 @c @defvr {User Option} ido-enable-tramp-completion
 @c @defvr {User Option} ido-unc-hosts
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f5469f4d55..6ab96b11327 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-08-08  Xue Fuqiao  <xfq.free@gmail.com>
+
+        * ido.el (ido-record-command): Add doc string.
+
 2013-08-08  Juanma Barranquero  <lekktu@gmail.com>
 
         * frameset.el (frameset): Do not disable creation of the default
diff --git a/lisp/ido.el b/lisp/ido.el
index d3c0e0f09f7..5d017069c5e 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -523,8 +523,8 @@ window with completion alternatives, or `ido-next-match' or
 
 
 (defcustom ido-record-commands t
-  "Non-nil means that `ido' will record commands in command history.
-Note that the non-ido equivalent command is recorded."
+  "Non-nil means that Ido will record commands in command history.
+Note that the non-Ido equivalent command is recorded."
   :type 'boolean
   :group 'ido)
 
@@ -1789,10 +1789,10 @@ This function also adds a hook to the minibuffer."
   (ido-set-current-directory (expand-file-name (or dir "~/"))))
 
 (defun ido-record-command (command arg)
-  ;; Add (command arg) to command-history if ido-record-commands is t
-  (if ido-record-commands
+  "Add (COMMAND ARG) to `command-history' if `ido-record-commands' is non-nil."
+  (if ido-record-commands               ; FIXME: use `when' instead of `if'?
       (let ((cmd (list command arg)))
-        (if (or (not command-history)
+        (if (or (not command-history)   ; FIXME: ditto
                 (not (equal cmd (car command-history))))
             (setq command-history (cons cmd command-history))))))