Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 04:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use new safe_calln on NS

Browse source 
* src/nsterm.m (ns_in_echo_area_1): Use safe_calln.
([EmacsView draggingUpdated:]): Use safe_calln.
This commit is contained in:
Gerd Möllmann 2023-12-23 07:06:06 +01:00
parent 0fde935b66
commit a63b206fbd
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/nsterm.m
View file

@ -7058,13 +7058,9 @@ - (void)unmarkText
static Lisp_Object
ns_in_echo_area_1 (void *ptr)
{
Lisp_Object in_echo_area;
specpdl_ref count;
count = SPECPDL_INDEX ();
const specpdl_ref count = SPECPDL_INDEX ();
specbind (Qinhibit_quit, Qt);
in_echo_area = safe_call (1, Qns_in_echo_area);
const Lisp_Object in_echo_area = safe_calln (Qns_in_echo_area);
return unbind_to (count, in_echo_area);
}
@ -8829,8 +8825,8 @@ - (NSDragOperation) draggingUpdated: (id <NSDraggingInfo>) sender
so call this function instead. */
XSETFRAME (frame, emacsframe);
safe_call (4, Vns_drag_motion_function, frame,
make_fixnum (x), make_fixnum (y));
safe_calln (Vns_drag_motion_function, frame,
make_fixnum (x), make_fixnum (y));
redisplay ();
#endif