Mercurial > hg > xemacs-beta
comparison lisp/files.el @ 3638:305157cf3ebb
[xemacs-hg @ 2006-10-27 19:07:32 by aidan]
Deal with buffer-reversion with non-binary coding better; update fileio.c
comment from Ben.
| author | aidan |
|---|---|
| date | Fri, 27 Oct 2006 19:07:47 +0000 |
| parents | fd1acd2f457a |
| children | cee87f8de64b |
comparison
equal
deleted
inserted
replaced
| 3637:9ea4f17ba0db | 3638:305157cf3ebb |
|---|---|
| 3519 (let (buffer-read-only | 3519 (let (buffer-read-only |
| 3520 (buffer-undo-list t) | 3520 (buffer-undo-list t) |
| 3521 after-change-function | 3521 after-change-function |
| 3522 after-change-functions | 3522 after-change-functions |
| 3523 before-change-function | 3523 before-change-function |
| 3524 before-change-functions) | 3524 before-change-functions |
| 3525 ;; #### b-f-c-s is _not necessarily_ the coding system that | |
| 3526 ;; was used to read in the file. See its docstring. | |
| 3527 (coding-system-for-read buffer-file-coding-system)) | |
| 3525 (if revert-buffer-insert-file-contents-function | 3528 (if revert-buffer-insert-file-contents-function |
| 3526 (funcall revert-buffer-insert-file-contents-function | 3529 (funcall revert-buffer-insert-file-contents-function |
| 3527 file-name nil) | 3530 file-name nil) |
| 3528 (if (not (file-exists-p file-name)) | 3531 (if (not (file-exists-p file-name)) |
| 3529 (error "File %s no longer exists!" file-name)) | 3532 (error "File %s no longer exists!" file-name)) |