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
8449a569
Commit
8449a569
authored
Jul 25, 1995
by
Karl Heuer
Browse files
(signal_before_change): Use Frun_hook_with_args.
(signal_after_change): Likewise.
parent
b0b667cb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
12 deletions
+11
-12
src/insdel.c
src/insdel.c
+11
-12
No files found.
src/insdel.c
View file @
8449a569
...
...
@@ -777,6 +777,8 @@ void
signal_before_change
(
start
,
end
)
Lisp_Object
start
,
end
;
{
Lisp_Object
args
[
2
];
/* If buffer is unmodified, run a special hook for that case. */
if
(
SAVE_MODIFF
>=
MODIFF
&&
!
NILP
(
Vfirst_change_hook
)
...
...
@@ -829,11 +831,9 @@ signal_before_change (start, end)
Vafter_change_functions
=
Qnil
;
Vbefore_change_functions
=
Qnil
;
while
(
CONSP
(
functions
))
{
call2
(
XCONS
(
functions
)
->
car
,
start
,
end
);
functions
=
XCONS
(
functions
)
->
cdr
;
}
args
[
0
]
=
start
;
args
[
1
]
=
end
;
Frun_hook_with_args
(
intern
(
"before-change-functions"
),
2
,
args
);
unbind_to
(
count
,
Qnil
);
}
...
...
@@ -854,6 +854,8 @@ void
signal_after_change
(
pos
,
lendel
,
lenins
)
int
pos
,
lendel
,
lenins
;
{
Lisp_Object
args
[
3
];
if
(
!
NILP
(
Vafter_change_function
))
{
int
count
=
specpdl_ptr
-
specpdl
;
...
...
@@ -896,13 +898,10 @@ signal_after_change (pos, lendel, lenins)
Vafter_change_functions
=
Qnil
;
Vbefore_change_functions
=
Qnil
;
while
(
CONSP
(
functions
))
{
call3
(
XCONS
(
functions
)
->
car
,
make_number
(
pos
),
make_number
(
pos
+
lenins
),
make_number
(
lendel
));
functions
=
XCONS
(
functions
)
->
cdr
;
}
XSETFASTINT
(
args
[
0
],
pos
);
XSETFASTINT
(
args
[
1
],
pos
+
lenins
);
XSETFASTINT
(
args
[
2
],
lendel
);
Frun_hook_with_args
(
intern
(
"after-change-functions"
),
3
,
args
);
unbind_to
(
count
,
Qnil
);
}
...
...
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