Skip to content
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
Merged
Changes from all commits
Commits
File filter
Filter file types
Jump to
Jump to file
Failed to load files.

Always

Just for now

@@ -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
Author 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);
@@ -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 {
@@ -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.