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
1848d15d
Commit
1848d15d
authored
Jul 15, 2002
by
Juanma Barranquero
Browse files
(Fdefvaralias): Add docstring argument.
parent
6747a521
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
6 deletions
+9
-6
src/eval.c
src/eval.c
+9
-6
No files found.
src/eval.c
View file @
1848d15d
...
...
@@ -710,16 +710,17 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */)
}
DEFUN
(
"defvaralias"
,
Fdefvaralias
,
Sdefvaralias
,
2
,
2
,
0
,
DEFUN
(
"defvaralias"
,
Fdefvaralias
,
Sdefvaralias
,
2
,
3
,
0
,
doc
:
/* Make SYMBOL a variable alias for symbol ALIASED.
Setting the value of SYMBOL will subsequently set the value of ALIASED,
and getting the value of SYMBOL will return the value ALIASED has.
ALIASED nil means remove the alias; SYMBOL is unbound after that. */
)
(
symbol
,
aliased
)
Lisp_Object
symbol
,
aliased
;
ALIASED nil means remove the alias; SYMBOL is unbound after that.
Third arg DOCSTRING, if non-nil, is documentation for SYMBOL. */
)
(
symbol
,
aliased
,
docstring
)
Lisp_Object
symbol
,
aliased
,
docstring
;
{
struct
Lisp_Symbol
*
sym
;
CHECK_SYMBOL
(
symbol
);
CHECK_SYMBOL
(
aliased
);
...
...
@@ -731,7 +732,9 @@ ALIASED nil means remove the alias; SYMBOL is unbound after that. */)
sym
->
value
=
aliased
;
sym
->
constant
=
SYMBOL_CONSTANT_P
(
aliased
);
LOADHIST_ATTACH
(
symbol
);
if
(
!
NILP
(
docstring
))
Fput
(
symbol
,
Qvariable_documentation
,
docstring
);
return
aliased
;
}
...
...
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