diff options
| author | Pip Cet <pipcet@gmail.com> | 2021-05-16 15:44:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-16 15:44:26 +0200 |
| commit | 9b6992a794c391c5d663b4a82b5acc9de611e2ac (patch) | |
| tree | 2af6fe2df10e3a9fa29f8cb1e7a41f3f0de10cb6 /src/eval.c | |
| parent | bf8b8cc6c57e051e11306aa9c409dc4ed8c442bc (diff) | |
| download | emacs-scratch/no-purespace-old.tar.gz | |
Remove purespace from Emacsscratch/no-purespace-old
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/src/eval.c b/src/eval.c index aeedcc50cc0..7d5975e1010 100644 --- a/src/eval.c +++ b/src/eval.c @@ -794,8 +794,6 @@ value. */) XSYMBOL (symbol)->u.s.declared_special = true; if (!NILP (doc)) { - if (!NILP (Vpurify_flag)) - doc = Fpurecopy (doc); Fput (symbol, Qvariable_documentation, doc); } LOADHIST_ATTACH (symbol); @@ -912,8 +910,6 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */) Finternal__define_uninitialized_variable (sym, docstring); tem = eval_sub (XCAR (XCDR (args))); - if (!NILP (Vpurify_flag)) - tem = Fpurecopy (tem); Fset_default (sym, tem); /* FIXME: set-default-toplevel-value? */ Fput (sym, Qrisky_local_variable, Qt); /* FIXME: Why? */ return sym; @@ -2227,12 +2223,6 @@ this does nothing and returns nil. */) && !AUTOLOADP (XSYMBOL (function)->u.s.function)) return Qnil; - if (!NILP (Vpurify_flag) && EQ (docstring, make_fixnum (0))) - /* `read1' in lread.c has found the docstring starting with "\ - and assumed the docstring will be provided by Snarf-documentation, so it - passed us 0 instead. But that leads to accidental sharing in purecopy's - hash-consing, so we use a (hopefully) unique integer instead. */ - docstring = make_ufixnum (XHASH (function)); return Fdefalias (function, list5 (Qautoload, file, docstring, interactive, type), Qnil); @@ -4490,7 +4480,7 @@ alist of active lexical bindings. */); also use something like Fcons (Qnil, Qnil), but json.c treats any cons cell as error data, so use an uninterned symbol instead. */ Qcatch_all_memory_full - = Fmake_symbol (build_pure_c_string ("catch-all-memory-full")); + = Fmake_symbol (build_string ("catch-all-memory-full")); defsubr (&Sor); defsubr (&Sand); |