diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-07-18 11:20:33 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-07-18 11:20:33 -0400 |
| commit | 5fbc0409ac3c51baf18d43b00ed00b56acc1c74b (patch) | |
| tree | 6cef721f973317fa7523987e4dd97e9f5fe360a0 /src/eval.c | |
| parent | eceb6feba42bebcb15d5dd0c60c9470ad7300309 (diff) | |
| download | emacs-5fbc0409ac3c51baf18d43b00ed00b56acc1c74b.tar.gz | |
* src/eval.c (Fdefvar): Don't check constants since we only set the var if
it's not yet defined anyway.
Fixes: debbugs:11904
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/eval.c b/src/eval.c index f16fdc6dd4c..da567e1e635 100644 --- a/src/eval.c +++ b/src/eval.c @@ -691,18 +691,6 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) /* Do it before evaluating the initial value, for self-references. */ XSYMBOL (sym)->declared_special = 1; - if (SYMBOL_CONSTANT_P (sym)) - { - /* For upward compatibility, allow (defvar :foo (quote :foo)). */ - Lisp_Object tem1 = Fcar (tail); - if (! (CONSP (tem1) - && EQ (XCAR (tem1), Qquote) - && CONSP (XCDR (tem1)) - && EQ (XCAR (XCDR (tem1)), sym))) - error ("Constant symbol `%s' specified in defvar", - SDATA (SYMBOL_NAME (sym))); - } - if (NILP (tem)) Fset_default (sym, eval_sub (Fcar (tail))); else |