(Qbuffer_name_history): New variable.

(syms_of_minibuf): Initialize it.
(Fread_buffer): Use that history list.

diff --git a/src/minibuf.c b/src/minibuf.c
index bd3fc5779aecf333c319a06c066a66097ecb1bc3..f41e03072fe62ff35aa8058ab82bd8e214c60c5f 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -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);