Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5fbc0409
Commit
5fbc0409
authored
Jul 18, 2012
by
Stefan Monnier
Browse files
* src/eval.c (Fdefvar): Don't check constants since we only set the var if
it's not yet defined anyway. Fixes: debbugs:11904
parent
eceb6feb
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
12 deletions
+3
-12
src/ChangeLog
src/ChangeLog
+3
-0
src/eval.c
src/eval.c
+0
-12
No files found.
src/ChangeLog
View file @
5fbc0409
2012-07-18 Stefan Monnier <monnier@iro.umontreal.ca>
* eval.c (Fdefvar): Don't check constants since we only set the var if
it's not yet defined anyway (bug#11904).
* lisp.h (last_undo_boundary): Declare new var.
* keyboard.c (command_loop_1): Set it.
* cmds.c (Fself_insert_command): Use it to only remove boundaries that
...
...
src/eval.c
View file @
5fbc0409
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment