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
73e0d965
Commit
73e0d965
authored
Dec 26, 1996
by
Richard M. Stallman
Browse files
(Fdefalias): Change argument name and doc string.
parent
baa573a3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
src/data.c
src/data.c
+6
-6
No files found.
src/data.c
View file @
73e0d965
...
...
@@ -646,24 +646,24 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
}
DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0,
"Set SYMBOL's function definition to
NEW
DEF, and return
NEW
DEF.
\n
\
"Set SYMBOL's function definition to DEF
INITION
, and return DEF
INITION
.\n\
Associates the function with the current load file, if any.")
(
symbol
,
new
def
)
register
Lisp_Object
symbol
,
new
def
;
(symbol, def
inition
)
register Lisp_Object symbol, def
inition
;
{
CHECK_SYMBOL (symbol, 0);
if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (symbol)->function, Qunbound))
Vautoload_queue = Fcons (Fcons (symbol, XSYMBOL (symbol)->function),
Vautoload_queue);
XSYMBOL
(
symbol
)
->
function
=
new
def
;
XSYMBOL (symbol)->function = def
inition
;
/* Handle automatic advice activation */
if (CONSP (XSYMBOL (symbol)->plist) && !NILP (Fget (symbol, Qad_advice_info)))
{
call2 (Qad_activate, symbol, Qnil);
new
def
=
XSYMBOL
(
symbol
)
->
function
;
def
inition
= XSYMBOL (symbol)->function;
}
LOADHIST_ATTACH (symbol);
return
new
def
;
return def
inition
;
}
DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0,
...
...
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