Mercurial > emacs
changeset 112384:f5af01a13248
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 19 Jan 2011 22:40:36 -0800 |
| parents | 051c56a77c5c |
| children | 5bc690b4522f |
| files | lisp/ChangeLog lisp/simple.el src/ChangeLog src/globals.h src/minibuf.c |
| diffstat | 5 files changed, 21 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.")
--- 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.
--- 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 \
--- 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);