Mercurial > emacs
changeset 4773:ae7c67879859
(Qextended_command_history): New variable prevents
sharing of M-x command history with other commands that read
values in the minibuffer.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Wed, 22 Sep 1993 18:11:10 +0000 |
| parents | 2c6033bfb871 |
| children | 8e36034f65e2 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Wed Sep 22 18:08:51 1993 +0000 +++ b/src/keyboard.c Wed Sep 22 18:11:10 1993 +0000 @@ -402,6 +402,7 @@ Lisp_Object recursive_edit_unwind (), command_loop (); Lisp_Object Fthis_command_keys (); +Lisp_Object Qextended_command_history; /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt happens. */ @@ -4548,11 +4549,11 @@ /* Prompt with buf, and then read a string, completing from and restricting to the set of all defined commands. Don't provide - any initial input. The last Qnil says not to perform a - peculiar hack on the initial input. */ + any initial input. Save the command read on the extended-comman + history list. */ function = Fcompleting_read (build_string (buf), Vobarray, Qcommandp, - Qt, Qnil, Qnil); + Qt, Qnil, Qextended_command_history); /* Set this_command_keys to the concatenation of saved_keys and function, followed by a RET. */ @@ -5214,6 +5215,10 @@ this_command_keys = Fmake_vector (make_number (40), Qnil); staticpro (&this_command_keys); + Qextended_command_history = intern ("extended-command-history"); + Fset (Qextended_command_history, Qnil); + staticpro (&Qextended_command_history); + kbd_buffer_frame_or_window = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil); staticpro (&kbd_buffer_frame_or_window);