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
ebb9e16f
Commit
ebb9e16f
authored
Jul 16, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
e5167999
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
25 additions
and
11 deletions
+25
-11
src/dired.c
src/dired.c
+6
-3
src/process.c
src/process.c
+17
-7
src/search.c
src/search.c
+2
-1
No files found.
src/dired.c
View file @
ebb9e16f
...
...
@@ -82,12 +82,15 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
if
(
!
NILP
(
match
))
{
CHECK_STRING
(
match
,
3
);
/* Compile it now so we don't get an error after opendir */
/* MATCH might be a flawed regular expression. Rather than
catching and signalling our own errors, we just call
compile_pattern to do the work for us. */
#ifdef VMS
compile_pattern
(
match
,
&
searchbuf
,
compile_pattern
(
match
,
&
searchbuf
,
0
buffer_defaults
.
downcase_table
->
contents
);
#else
compile_pattern
(
match
,
&
searchbuf
,
0
);
compile_pattern
(
match
,
&
searchbuf
,
0
,
0
);
#endif
}
...
...
src/process.c
View file @
ebb9e16f
...
...
@@ -579,7 +579,10 @@ BUFFER may be a buffer or the name of one.")
return Qnil;
}
/* This is how commands for the user decode process arguments */
/* 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
current buffer. */
Lisp_Object
get_process (name)
...
...
@@ -607,7 +610,8 @@ get_process (name)
DEFUN ("delete-process", Fdelete_process, Sdelete_process, 1, 1, 0,
"Delete PROCESS: kill it and forget about it immediately.\n\
PROCESS may be a process or the name of one, or a buffer name.")
PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
nil, indicating the current buffer's process.")
(proc)
register Lisp_Object proc;
{
...
...
@@ -640,7 +644,9 @@ exit -- for a process that has exited.\n\
signal -- for a process that has got a fatal signal.\n\
open -- for a network stream connection that is open.\n\
closed -- for a network stream connection that is closed.\n\
nil -- if arg is a process name and no such process exists.")
nil -- if arg is a process name and no such process exists.\n\
PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
nil, indicating the current buffer's process.")
/* command -- for a command channel opened to Emacs by another process.\n\
external -- for an i/o channel opened to Emacs by another process.\n\ */
(proc)
...
...
@@ -648,7 +654,7 @@ nil -- if arg is a process name and no such process exists.")
{
register struct Lisp_Process *p;
register Lisp_Object status;
proc =
F
get_process (proc);
proc = get_process (proc);
if (NILP (proc))
return proc;
p = XPROCESS (proc);
...
...
@@ -2164,7 +2170,8 @@ send_process (proc, buf, len)
DEFUN ("process-send-region", Fprocess_send_region, Sprocess_send_region,
3, 3, 0,
"Send current contents of region as input to PROCESS.\n\
PROCESS may be a process name or an actual process.\n\
PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
nil, indicating the current buffer's process.\n\
Called from program, takes three arguments, PROCESS, START and END.\n\
If the region is more than 500 characters long,\n\
it is sent in several bunches. This may happen even for shorter regions.\n\
...
...
@@ -2190,7 +2197,8 @@ Output from processes can arrive in between bunches.")
DEFUN ("process-send-string", Fprocess_send_string, Sprocess_send_string,
2, 2, 0,
"Send PROCESS the contents of STRING as input.\n\
PROCESS may be a process name or an actual process.\n\
PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
nil, indicating the current buffer's process.\n\
If STRING is more than 500 characters long,\n\
it is sent in several bunches. This may happen even for shorter strings.\n\
Output from processes can arrive in between bunches.")
...
...
@@ -2373,6 +2381,7 @@ process_send_signal (process, signo, current_group, nomsg)
DEFUN ("interrupt-process", Finterrupt_process, Sinterrupt_process, 0, 2, 0,
"Interrupt process PROCESS. May be process or name of one.\n\
PROCESS may be a process, a buffer, or the name of a process or buffer.\n\
Nil or no arg means current buffer's process.\n\
Second arg CURRENT-GROUP non-nil means send signal to\n\
the current process-group of the process's controlling terminal\n\
...
...
@@ -2449,7 +2458,8 @@ Both PID and CODE are integers.")
DEFUN ("process-send-eof", Fprocess_send_eof, Sprocess_send_eof, 0, 1, 0,
"Make PROCESS see end-of-file in its input.\n\
Eof comes after any text already sent to it.\n\
nil or no arg means current buffer's process.")
PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
nil, indicating the current buffer's process.")
(process)
Lisp_Object process;
{
...
...
src/search.c
View file @
ebb9e16f
...
...
@@ -111,7 +111,8 @@ compile_pattern (pattern, bufp, regp, translate)
/* Advise the searching functions about the space we have allocated
for register data. */
re_set_registers
(
bufp
,
regp
,
regp
->
num_regs
,
regp
->
start
,
regp
->
end
);
if
(
regp
)
re_set_registers
(
bufp
,
regp
,
regp
->
num_regs
,
regp
->
start
,
regp
->
end
);
return
;
}
...
...
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