[Emacs-diffs] /srv/bzr/emacs/trunk r102913: Give read-expression-history a doc.

[Glenn Morris]

------------------------------------------------------------
revno: 102913
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-01-19 22:40:36 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/simple.el
  src/ChangeLog
  src/globals.h
  src/minibuf.c

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-20 02:55:36 +0000
+++ b/lisp/ChangeLog    2011-01-20 06:40:36 +0000
@@ -1,3 +1,7 @@
+2011-01-20  Glenn Morris  <address@hidden>
+
+       * simple.el (read-expression-history): Remove, it's in minibuf.c.
+
 2011-01-20  Chong Yidong  <address@hidden>
 
        * subr.el (y-or-n-p): Revert 2011-01-07 change, removing ARGS.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-01-16 02:21:30 +0000
+++ b/lisp/simple.el    2011-01-20 06:40:36 +0000
@@ -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.")
 

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-01-20 06:10:05 +0000
+++ b/src/ChangeLog     2011-01-20 06:40:36 +0000
@@ -1,5 +1,9 @@
 2011-01-20  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'src/globals.h'
--- a/src/globals.h     2011-01-20 06:10:05 +0000
+++ b/src/globals.h     2011-01-20 06:40:36 +0000
@@ -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 \

=== modified file 'src/minibuf.c'
--- a/src/minibuf.c     2011-01-18 20:45:37 +0000
+++ b/src/minibuf.c     2011-01-20 06:40:36 +0000
@@ -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);