Commit 1c9916a1 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Fdefvar): Allow (defvar enable-multibyte-characters).

parent a34ed813
2005-07-26 Stefan Monnier <monnier@iro.umontreal.ca>
* eval.c (Fdefvar): Allow (defvar enable-multibyte-characters).
2005-07-25 Jason Rumney <jasonr@gnu.org>
* w32menu.c (w32_menu_display_help): Suppress tooltip when
......@@ -22,7 +26,7 @@
(Fgarbage_collect, init_alloc_once): Compute gc_relative_threshold
instead of gc_cons_combined_threshold.
* lisp.h (gc_cons_threshold, gc_relative_threshold): Declared.
* lisp.h (gc_cons_threshold, gc_relative_threshold): Declare.
(gc_cons_combined_threshold): Declaration deleted.
2005-07-23 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
......
......@@ -807,10 +807,17 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
register Lisp_Object sym, tem, tail;
sym = Fcar (args);
tail = Fcdr (args);
if (!NILP (Fcdr (Fcdr (tail))))
error ("Too many arguments");
tem = Fdefault_boundp (sym);
if (!NILP (tail))
{
if (SYMBOL_CONSTANT_P (sym))
{
/* For updward compatibility, allow (defvar :foo (quote :foo)). */
tem = Fcar (Fcdr (args));
/* For upward compatibility, allow (defvar :foo (quote :foo)). */
Lisp_Object tem = Fcar (tail);
if (! (CONSP (tem)
&& EQ (XCAR (tem), Qquote)
&& CONSP (XCDR (tem))
......@@ -819,13 +826,6 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
SDATA (SYMBOL_NAME (sym)));
}
tail = Fcdr (args);
if (!NILP (Fcdr (Fcdr (tail))))
error ("Too many arguments");
tem = Fdefault_boundp (sym);
if (!NILP (tail))
{
if (NILP (tem))
Fset_default (sym, Feval (Fcar (tail)));
else
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment