New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We鈥檒l occasionally send you account related emails.

Already on GitHub? Sign in to your account

Port processp #265

Merged
merged 1 commit into from Jul 23, 2017
Jump to file or symbol
Failed to load files and symbols.
+7 鈭8
Diff settings

Always

Just for now

Copy path View file
@@ -151,6 +151,7 @@ pub extern "C" fn rust_init_syms() {
defsubr(&*windows::Swindowp);
defsubr(&*windows::Swindow_live_p);
defsubr(&*process::Sget_process);
defsubr(&*process::Sprocessp);

This comment has been minimized.

@jsoo1

jsoo1 Jul 23, 2017

Contributor

Do I need to export this?

This comment has been minimized.

@birkenfeld

birkenfeld Jul 23, 2017

Collaborator

Do you mean a pub use in lib.rs? Not if the build succeeds, which means it's not used from C.

defsubr(&*lists::Satom);
defsubr(&*lists::Slistp);
defsubr(&*lists::Snlistp);
Copy path View file
@@ -5,6 +5,12 @@ use remacs_sys::Vprocess_alist;
use lisp::LispObject;
use lists::{assoc, cdr};
/// Return t if OBJECT is a process.
#[lisp_fn]
pub fn processp(object: LispObject) -> LispObject {
LispObject::from_bool(object.is_process())
}
/// Return the process named NAME, or nil if there is none.
#[lisp_fn]
fn get_process(name: LispObject) -> LispObject {
Copy path View file
@@ -929,13 +929,6 @@ free_dns_request (Lisp_Object proc)
}
#endif
DEFUN ("processp", Fprocessp, Sprocessp, 1, 1, 0,
doc: /* Return t if OBJECT is a process. */)
(Lisp_Object object)
{
return PROCESSP (object) ? Qt : Qnil;
}
/* This is how commands for the user decode process arguments. It
accepts a process, a process name, a buffer, a buffer name, or nil.
Buffers denote the first process in the buffer, and nil denotes the
@@ -7906,7 +7899,6 @@ non-nil value means that the delay is not reset on write.
The variable takes effect when `start-process' is called. */);
Vprocess_adaptive_read_buffering = Qt;
defsubr (&Sprocessp);
defsubr (&Sdelete_process);
defsubr (&Sprocess_status);
defsubr (&Sprocess_exit_status);
ProTip! Use n and p to navigate between commits in a pull request.