/[emacs]/emacs/src/callproc.c
ViewVC logotype

Diff of /emacs/src/callproc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.178 by miles, Sun Oct 21 09:53:01 2001 UTC revision 1.179 by pj, Fri Nov 2 20:18:13 2001 UTC
# Line 247  usage: (call-process PROGRAM &optional I Line 247  usage: (call-process PROGRAM &optional I
247    /* Qt denotes that Ffind_operation_coding_system is not yet called.  */    /* Qt denotes that Ffind_operation_coding_system is not yet called.  */
248    coding_systems = Qt;    coding_systems = Qt;
249    
250    CHECK_STRING (args[0], 0);    CHECK_STRING (args[0]);
251    
252    error_file = Qt;    error_file = Qt;
253    
# Line 269  usage: (call-process PROGRAM &optional I Line 269  usage: (call-process PROGRAM &optional I
269          int must_encode = 0;          int must_encode = 0;
270    
271          for (i = 4; i < nargs; i++)          for (i = 4; i < nargs; i++)
272            CHECK_STRING (args[i], i);            CHECK_STRING (args[i]);
273    
274          for (i = 4; i < nargs; i++)          for (i = 4; i < nargs; i++)
275            if (STRING_MULTIBYTE (args[i]))            if (STRING_MULTIBYTE (args[i]))
# Line 299  usage: (call-process PROGRAM &optional I Line 299  usage: (call-process PROGRAM &optional I
299    if (nargs >= 2 && ! NILP (args[1]))    if (nargs >= 2 && ! NILP (args[1]))
300      {      {
301        infile = Fexpand_file_name (args[1], current_buffer->directory);        infile = Fexpand_file_name (args[1], current_buffer->directory);
302        CHECK_STRING (infile, 1);        CHECK_STRING (infile);
303      }      }
304    else    else
305      infile = build_string (NULL_DEVICE);      infile = build_string (NULL_DEVICE);
# Line 335  usage: (call-process PROGRAM &optional I Line 335  usage: (call-process PROGRAM &optional I
335            buffer = Fget_buffer_create (buffer);            buffer = Fget_buffer_create (buffer);
336            /* Mention the buffer name for a better error message.  */            /* Mention the buffer name for a better error message.  */
337            if (NILP (buffer))            if (NILP (buffer))
338              CHECK_BUFFER (spec_buffer, 2);              CHECK_BUFFER (spec_buffer);
339            CHECK_BUFFER (buffer, 2);            CHECK_BUFFER (buffer);
340          }          }
341      }      }
342    else    else
# Line 1419  This function consults the variable ``pr Line 1419  This function consults the variable ``pr
1419    char *value;    char *value;
1420    int valuelen;    int valuelen;
1421    
1422    CHECK_STRING (var, 0);    CHECK_STRING (var);
1423    if (getenv_internal (XSTRING (var)->data, STRING_BYTES (XSTRING (var)),    if (getenv_internal (XSTRING (var)->data, STRING_BYTES (XSTRING (var)),
1424                         &value, &valuelen))                         &value, &valuelen))
1425      return make_string (value, valuelen);      return make_string (value, valuelen);

Legend:
Removed from v.1.178  
changed lines
  Added in v.1.179

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26