From: Charles A. Roelli <charles@aurox.ch>
Date: Mon, 2 Apr 2018 14:18:23 +0000 (+0200)
Subject: Add a history variable for `read-variable'
X-Git-Tag: emacs-27.0.90~5344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d06c2e7a666fbc7aa0e7a9b134d9e373431d76bf;p=emacs.git

Add a history variable for `read-variable'

* src/minibuf.c (Fread_variable): Use the history variable when
calling Fcompleting_read.
(syms_of_minibuf): New history variable, custom-variable-history.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index 45cf15224a5..5cb6919a0f5 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1090,7 +1090,8 @@ A user option, or customizable variable, is one for which
 
   name = Fcompleting_read (prompt, Vobarray,
 			   Qcustom_variable_p, Qt,
-			   Qnil, Qnil, default_string, Qnil);
+			   Qnil, Qcustom_variable_history,
+			   default_string, Qnil);
   if (NILP (name))
     return name;
   return Fintern (name, Qnil);
@@ -1931,6 +1932,9 @@ syms_of_minibuf (void)
   staticpro (&last_minibuf_string);
   last_minibuf_string = Qnil;
 
+  DEFSYM (Qcustom_variable_history, "custom-variable-history");
+  Fset (Qcustom_variable_history, Qnil);
+
   DEFSYM (Qminibuffer_history, "minibuffer-history");
   DEFSYM (Qbuffer_name_history, "buffer-name-history");
   Fset (Qbuffer_name_history, Qnil);