1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00

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

* lisp/ido.el (ido-record-command): Add doc string.
This commit is contained in:
Xue Fuqiao 2013-08-08 22:03:56 +08:00
parent 9dfc8491bb
commit 04263d23c5
3 changed files with 16 additions and 7 deletions

View File

@ -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

View File

@ -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

View File

@ -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))))))