16228 |
generated by character C. PRECISION >= 0 means don't return a |
generated by character C. PRECISION >= 0 means don't return a |
16229 |
string longer than that value. FIELD_WIDTH > 0 means pad the |
string longer than that value. FIELD_WIDTH > 0 means pad the |
16230 |
string returned with spaces to that value. Return 1 in *MULTIBYTE |
string returned with spaces to that value. Return 1 in *MULTIBYTE |
16231 |
if the result is multibyte text. */ |
if the result is multibyte text. |
16232 |
|
|
16233 |
|
Note we operate on the current buffer for most purposes, |
16234 |
|
the exception being w->base_line_pos. */ |
16235 |
|
|
16236 |
static char lots_of_dashes[] = "--------------------------------------------------------------------------------------------------------------------------------------------"; |
static char lots_of_dashes[] = "--------------------------------------------------------------------------------------------------------------------------------------------"; |
16237 |
|
|
16245 |
Lisp_Object obj; |
Lisp_Object obj; |
16246 |
struct frame *f = XFRAME (WINDOW_FRAME (w)); |
struct frame *f = XFRAME (WINDOW_FRAME (w)); |
16247 |
char *decode_mode_spec_buf = f->decode_mode_spec_buffer; |
char *decode_mode_spec_buf = f->decode_mode_spec_buffer; |
16248 |
struct buffer *b = XBUFFER (w->buffer); |
struct buffer *b = current_buffer; |
16249 |
|
|
16250 |
obj = Qnil; |
obj = Qnil; |
16251 |
*multibyte = 0; |
*multibyte = 0; |
16547 |
|
|
16548 |
case 's': |
case 's': |
16549 |
/* status of process */ |
/* status of process */ |
16550 |
obj = Fget_buffer_process (w->buffer); |
obj = Fget_buffer_process (Fcurrent_buffer ()); |
16551 |
if (NILP (obj)) |
if (NILP (obj)) |
16552 |
return "no process"; |
return "no process"; |
16553 |
#ifdef subprocesses |
#ifdef subprocesses |