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
32f532b7
Commit
32f532b7
authored
Jul 30, 1999
by
Karl Heuer
Browse files
(Fdefalias): Call Ffset instead of duplicating code.
parent
9fcc68f7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
11 deletions
+1
-11
src/data.c
src/data.c
+1
-11
No files found.
src/data.c
View file @
32f532b7
...
...
@@ -693,17 +693,7 @@ Associates the function with the current load file, if any.")
(symbol, definition)
register Lisp_Object symbol, definition;
{
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
=
definition
;
/* Handle automatic advice activation */
if
(
CONSP
(
XSYMBOL
(
symbol
)
->
plist
)
&&
!
NILP
(
Fget
(
symbol
,
Qad_advice_info
)))
{
call2
(
Qad_activate
,
symbol
,
Qnil
);
definition
=
XSYMBOL
(
symbol
)
->
function
;
}
definition = Ffset (symbol, definition);
LOADHIST_ATTACH (symbol);
return definition;
}
...
...
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