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

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

diff --git a/doc/misc/ido.texi b/doc/misc/ido.texi
index 48636a9fb92ceec5379e56618d8316da038371b5..e0b28e3b2cb2b2307ac97b893b9db45a9ffbf19f 100644 (file)
--- 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 6f5469f4d55f09837cb92902d1fc280b3a3b1f3d..6ab96b1132704eb58fadcbb73053f059379dee90 100644 (file)
--- 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 d3c0e0f09f7a0cff7f632abce1be8168a2525e98..5d017069c5efc20130d0cccf96c59fe807455866 100644 (file)
--- 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))))))