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:
parent
9dfc8491bb
commit
04263d23c5
@ -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
|
||||
|
@ -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
|
||||
|
10
lisp/ido.el
10
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))))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user