1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-27 02:10:52 -08:00

(Qbuffer_name_history): New variable.

(syms_of_minibuf): Initialize it.
(Fread_buffer): Use that history list.
This commit is contained in:
Richard M. Stallman 1998-05-09 23:55:27 +00:00
parent 5ab13dd02e
commit 406e55df20

View file

@ -77,7 +77,7 @@ Lisp_Object Vminibuffer_history_variable;
Lisp_Object Vminibuffer_history_position;
Lisp_Object Qminibuffer_history;
Lisp_Object Qminibuffer_history, Qbuffer_name_history;
Lisp_Object Qread_file_name_internal;
@ -855,7 +855,8 @@ If optional third arg REQUIRE-MATCH is non-nil, only existing buffer names are a
}
return Fcompleting_read (prompt, Vbuffer_alist, Qnil,
require_match, Qnil, Qnil, def, Qnil);
require_match, Qnil, Qbuffer_name_history,
def, Qnil);
}
else
{
@ -2103,6 +2104,9 @@ syms_of_minibuf ()
Qminibuffer_history = intern ("minibuffer-history");
staticpro (&Qminibuffer_history);
Qbuffer_name_history = intern ("buffer-name-history");
staticpro (&Qbuffer_name_history);
Qminibuffer_setup_hook = intern ("minibuffer-setup-hook");
staticpro (&Qminibuffer_setup_hook);