changeset 808:707866b2a190

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 16 Jul 1992 22:56:42 +0000
parents 4f28bd14272c
children 8a0066235d56
files src/dired.c src/process.c src/search.c
diffstat 3 files changed, 25 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/src/dired.c	Thu Jul 16 21:47:34 1992 +0000
+++ b/src/dired.c	Thu Jul 16 22:56:42 1992 +0000
@@ -82,12 +82,15 @@
   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
     }
 
--- a/src/process.c	Thu Jul 16 21:47:34 1992 +0000
+++ b/src/process.c	Thu Jul 16 22:56:42 1992 +0000
@@ -579,7 +579,10 @@
   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 @@
 
 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 @@
 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 @@
 {
   register struct Lisp_Process *p;
   register Lisp_Object status;
-  proc = Fget_process (proc);
+  proc = get_process (proc);
   if (NILP (proc))
     return proc;
   p = XPROCESS (proc);
@@ -2164,7 +2170,8 @@
 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 @@
 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 @@
 
 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 @@
 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;
 {
--- a/src/search.c	Thu Jul 16 21:47:34 1992 +0000
+++ b/src/search.c	Thu Jul 16 22:56:42 1992 +0000
@@ -111,7 +111,8 @@
 
   /* 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;
 }