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
1c9916a1
Commit
1c9916a1
authored
Jul 26, 2005
by
Stefan Monnier
Browse files
(Fdefvar): Allow (defvar enable-multibyte-characters).
parent
a34ed813
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
13 deletions
+17
-13
src/ChangeLog
src/ChangeLog
+5
-1
src/eval.c
src/eval.c
+12
-12
No files found.
src/ChangeLog
View file @
1c9916a1
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): Declare
d
.
* 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>
...
...
src/eval.c
View file @
1c9916a1
...
...
@@ -807,18 +807,6 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
register
Lisp_Object
sym
,
tem
,
tail
;
sym
=
Fcar
(
args
);
if
(
SYMBOL_CONSTANT_P
(
sym
))
{
/* For updward compatibility, allow (defvar :foo (quote :foo)). */
tem
=
Fcar
(
Fcdr
(
args
));
if
(
!
(
CONSP
(
tem
)
&&
EQ
(
XCAR
(
tem
),
Qquote
)
&&
CONSP
(
XCDR
(
tem
))
&&
EQ
(
XCAR
(
XCDR
(
tem
)),
sym
)))
error
(
"Constant symbol `%s' specified in defvar"
,
SDATA
(
SYMBOL_NAME
(
sym
)));
}
tail
=
Fcdr
(
args
);
if
(
!
NILP
(
Fcdr
(
Fcdr
(
tail
))))
error
(
"Too many arguments"
);
...
...
@@ -826,6 +814,18 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
tem
=
Fdefault_boundp
(
sym
);
if
(
!
NILP
(
tail
))
{
if
(
SYMBOL_CONSTANT_P
(
sym
))
{
/* For upward compatibility, allow (defvar :foo (quote :foo)). */
Lisp_Object
tem
=
Fcar
(
tail
);
if
(
!
(
CONSP
(
tem
)
&&
EQ
(
XCAR
(
tem
),
Qquote
)
&&
CONSP
(
XCDR
(
tem
))
&&
EQ
(
XCAR
(
XCDR
(
tem
)),
sym
)))
error
(
"Constant symbol `%s' specified in defvar"
,
SDATA
(
SYMBOL_NAME
(
sym
)));
}
if
(
NILP
(
tem
))
Fset_default
(
sym
,
Feval
(
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