# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1295505636 28800
# Node ID f5af01a132486f6a7e19d0f3696fad5a07c74208
# Parent  051c56a77c5cad4bb8625f2d2c2c88bf43329cd1
Give read-expression-history a doc.

* lisp/simple.el (read-expression-history): Remove, it's in minibuf.c.

* src/minibuf.c (syms_of_minibuf) <read-expression-history>:
Give it a doc string.
* src/globals.h: Add Vread_expression_history.

diff -r 051c56a77c5c -r f5af01a13248 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 19 22:10:05 2011 -0800
+++ b/lisp/ChangeLog	Wed Jan 19 22:40:36 2011 -0800
@@ -1,3 +1,7 @@
+2011-01-20  Glenn Morris  <rgm@gnu.org>
+
+	* simple.el (read-expression-history): Remove, it's in minibuf.c.
+
 2011-01-20  Chong Yidong  <cyd@stupidchicken.com>
 
 	* subr.el (y-or-n-p): Revert 2011-01-07 change, removing ARGS.
diff -r 051c56a77c5c -r f5af01a13248 lisp/simple.el
--- a/lisp/simple.el	Wed Jan 19 22:10:05 2011 -0800
+++ b/lisp/simple.el	Wed Jan 19 22:40:36 2011 -0800
@@ -1142,8 +1142,6 @@
   (set-keymap-parent m minibuffer-local-map)
   (setq read-expression-map m))
 
-(defvar read-expression-history nil)
-
 (defvar minibuffer-completing-symbol nil
   "Non-nil means completing a Lisp symbol in the minibuffer.")
 
diff -r 051c56a77c5c -r f5af01a13248 src/ChangeLog
--- a/src/ChangeLog	Wed Jan 19 22:10:05 2011 -0800
+++ b/src/ChangeLog	Wed Jan 19 22:40:36 2011 -0800
@@ -1,5 +1,9 @@
 2011-01-20  Glenn Morris  <rgm@gnu.org>
 
+	* minibuf.c (syms_of_minibuf) <read-expression-history>:
+	Give it a doc string.
+	* globals.h: Add Vread_expression_history.
+
 	* macros.c (syms_of_macros) <kbd-macro-termination-hook>:
 	Give it a doc string.
 	* globals.h: Add Vkbd_macro_termination_hook.
diff -r 051c56a77c5c -r f5af01a13248 src/globals.h
--- a/src/globals.h	Wed Jan 19 22:10:05 2011 -0800
+++ b/src/globals.h	Wed Jan 19 22:40:36 2011 -0800
@@ -983,6 +983,8 @@
 
   Lisp_Object f_Vminibuffer_exit_hook;
 
+  Lisp_Object f_Vread_expression_history;
+
   /* Function to call to read a buffer name.  */
   Lisp_Object f_Vread_buffer_function;
 
@@ -2268,6 +2270,8 @@
     globals.f_Vquit_flag
 #define Vread_buffer_function \
     globals.f_Vread_buffer_function
+#define Vread_expression_history \
+    globals.f_Vread_expression_history
 #define Vread_circle \
     globals.f_Vread_circle
 #define Vread_expression_map \
diff -r 051c56a77c5c -r f5af01a13248 src/minibuf.c
--- a/src/minibuf.c	Wed Jan 19 22:10:05 2011 -0800
+++ b/src/minibuf.c	Wed Jan 19 22:40:36 2011 -0800
@@ -1,7 +1,8 @@
 /* Minibuffer input and completion.
-   Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-                 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-                 2008, 2009, 2010, 2011  Free Software Foundation, Inc.
+
+Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+   2011  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -2016,6 +2017,11 @@
   Qcase_fold_search = intern_c_string ("case-fold-search");
   staticpro (&Qcase_fold_search);
 
+  DEFVAR_LISP ("read-expression-history", Vread_expression_history,
+	       doc: /* A history list for arguments that are Lisp expressions to evaluate.
+For example, `eval-expression' uses this.  */);
+  Vread_expression_history = Qnil;
+
   Qread_expression_history = intern_c_string ("read-expression-history");
   staticpro (&Qread_expression_history);