; * src/eval.c (Fdefvar_1, Fdefconst_1): Properly quote apostrophe.

This commit is contained in:
Philipp Stephani 2025-03-04 06:12:58 +01:00
parent a38ed1618d
commit 3e39b2418b

View file

@ -918,7 +918,7 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
DEFUN ("defvar-1", Fdefvar_1, Sdefvar_1, 2, 3, 0,
doc: /* Like `defvar' but as a function.
More specifically behaves like (defvar SYM 'INITVALUE DOCSTRING). */)
More specifically behaves like (defvar SYM \\='INITVALUE DOCSTRING). */)
(Lisp_Object sym, Lisp_Object initvalue, Lisp_Object docstring)
{
return defvar (sym, initvalue, docstring, false);
@ -959,7 +959,7 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */)
DEFUN ("defconst-1", Fdefconst_1, Sdefconst_1, 2, 3, 0,
doc: /* Like `defconst' but as a function.
More specifically, behaves like (defconst SYM 'INITVALUE DOCSTRING). */)
More specifically, behaves like (defconst SYM \\='INITVALUE DOCSTRING). */)
(Lisp_Object sym, Lisp_Object initvalue, Lisp_Object docstring)
{
CHECK_SYMBOL (sym);