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

Improve return value of `haiku-roster-launch'

Browse source 
* src/haikuselect.c (Fhaiku_roster_launch): Return
`already-running' if no PID is available since the target
application is already running.
(syms_of_haikuselect): New defsym.
This commit is contained in:
Po Lu 2022-05-15 08:33:34 +00:00
parent 99df11a393
commit aaa2d0db18
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/haikuselect.c
View file

@ -778,8 +778,9 @@ ignored if it is dropped on top of FRAME. */)
DEFUN ("haiku-roster-launch", Fhaiku_roster_launch, Shaiku_roster_launch,
2, 2, 0,
doc: /* Launch an application associated with FILE-OR-TYPE.
Return the process ID of the application, or nil if no application was
launched.
Return the process ID of any process created, the symbol
`already-running' if ARGS was sent to a program that's already
running, or nil if launching the application failed.
FILE-OR-TYPE can either be a string denoting a MIME type, or a list
with one argument FILE, denoting a file whose associated application
@ -850,9 +851,16 @@ after it starts. */)
&team_id);
unblock_input ();
/* `be_roster_launch' can potentially take a while in IO, but
signals from async input will interrupt that operation. If the
user wanted to quit, act like it. */
maybe_quit ();
if (rc == B_OK)
return SAFE_FREE_UNBIND_TO (depth,
make_uint (team_id));
else if (rc == B_ALREADY_RUNNING)
return Qalready_running;
return SAFE_FREE_UNBIND_TO (depth, Qnil);
}
@ -913,6 +921,7 @@ used to retrieve the current position of the mouse. */);
DEFSYM (Qsize_t, "size_t");
DEFSYM (Qssize_t, "ssize_t");
DEFSYM (Qpoint, "point");
DEFSYM (Qalready_running, "already-running");
defsubr (&Shaiku_selection_data);
defsubr (&Shaiku_selection_put);