3574 |
DEFUN ("insert-file-contents", Finsert_file_contents, Sinsert_file_contents, |
DEFUN ("insert-file-contents", Finsert_file_contents, Sinsert_file_contents, |
3575 |
1, 5, 0, |
1, 5, 0, |
3576 |
doc: /* Insert contents of file FILENAME after point. |
doc: /* Insert contents of file FILENAME after point. |
3577 |
Returns list of absolute file name and number of bytes inserted. |
Returns list of absolute file name and number of characters inserted. |
3578 |
If second argument VISIT is non-nil, the buffer's visited filename |
If second argument VISIT is non-nil, the buffer's visited filename |
3579 |
and last save file modtime are set, and it is marked unmodified. |
and last save file modtime are set, and it is marked unmodified. |
3580 |
If visiting and the file does not exist, visiting is completed |
If visiting and the file does not exist, visiting is completed |
4493 |
inserted); |
inserted); |
4494 |
} |
} |
4495 |
|
|
4496 |
|
/* Now INSERTED is measured in characters. */ |
4497 |
|
|
4498 |
#ifdef DOS_NT |
#ifdef DOS_NT |
4499 |
/* Use the conversion type to determine buffer-file-type |
/* Use the conversion type to determine buffer-file-type |
4500 |
(find-buffer-file-type is now used to help determine the |
(find-buffer-file-type is now used to help determine the |
6416 |
|
|
6417 |
DEFVAR_LISP ("after-insert-file-functions", &Vafter_insert_file_functions, |
DEFVAR_LISP ("after-insert-file-functions", &Vafter_insert_file_functions, |
6418 |
doc: /* A list of functions to be called at the end of `insert-file-contents'. |
doc: /* A list of functions to be called at the end of `insert-file-contents'. |
6419 |
Each is passed one argument, the number of bytes inserted. It should return |
Each is passed one argument, the number of characters inserted. |
6420 |
the new byte count, and leave point the same. If `insert-file-contents' is |
It should return the new character count, and leave point the same. |
6421 |
intercepted by a handler from `file-name-handler-alist', that handler is |
If `insert-file-contents' is intercepted by a handler from |
6422 |
responsible for calling the after-insert-file-functions if appropriate. */); |
`file-name-handler-alist', that handler is responsible for calling the |
6423 |
|
functions in `after-insert-file-functions' if appropriate. */); |
6424 |
Vafter_insert_file_functions = Qnil; |
Vafter_insert_file_functions = Qnil; |
6425 |
|
|
6426 |
DEFVAR_LISP ("write-region-annotate-functions", &Vwrite_region_annotate_functions, |
DEFVAR_LISP ("write-region-annotate-functions", &Vwrite_region_annotate_functions, |