16127 |
generated by character C. PRECISION >= 0 means don't return a |
generated by character C. PRECISION >= 0 means don't return a |
16128 |
string longer than that value. FIELD_WIDTH > 0 means pad the |
string longer than that value. FIELD_WIDTH > 0 means pad the |
16129 |
string returned with spaces to that value. Return 1 in *MULTIBYTE |
string returned with spaces to that value. Return 1 in *MULTIBYTE |
16130 |
if the result is multibyte text. */ |
if the result is multibyte text. |
16131 |
|
|
16132 |
|
Note we operate on the current buffer for most purposes, |
16133 |
|
the exception being w->base_line_pos. */ |
16134 |
|
|
16135 |
static char lots_of_dashes[] = "--------------------------------------------------------------------------------------------------------------------------------------------"; |
static char lots_of_dashes[] = "--------------------------------------------------------------------------------------------------------------------------------------------"; |
16136 |
|
|
16144 |
Lisp_Object obj; |
Lisp_Object obj; |
16145 |
struct frame *f = XFRAME (WINDOW_FRAME (w)); |
struct frame *f = XFRAME (WINDOW_FRAME (w)); |
16146 |
char *decode_mode_spec_buf = f->decode_mode_spec_buffer; |
char *decode_mode_spec_buf = f->decode_mode_spec_buffer; |
16147 |
struct buffer *b = XBUFFER (w->buffer); |
struct buffer *b = current_buffer; |
16148 |
|
|
16149 |
obj = Qnil; |
obj = Qnil; |
16150 |
*multibyte = 0; |
*multibyte = 0; |
16446 |
|
|
16447 |
case 's': |
case 's': |
16448 |
/* status of process */ |
/* status of process */ |
16449 |
obj = Fget_buffer_process (w->buffer); |
obj = Fget_buffer_process (Fcurrent_buffer ()); |
16450 |
if (NILP (obj)) |
if (NILP (obj)) |
16451 |
return "no process"; |
return "no process"; |
16452 |
#ifdef subprocesses |
#ifdef subprocesses |