diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ido.el | 10 |
2 files changed, 9 insertions, 5 deletions
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)))))) |