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