Mercurial > hg > xemacs-beta
comparison lisp/files.el @ 363:972bbb6d6ca2 r21-1-11
Import from CVS: tag r21-1-11
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:59:28 +0200 |
parents | 7347b34c275b |
children | 30d2cfa1092a |
comparison
equal
deleted
inserted
replaced
362:1e474c183006 | 363:972bbb6d6ca2 |
---|---|
882 find-file-hooks, etc. | 882 find-file-hooks, etc. |
883 This function ensures that none of these modifications will take place." | 883 This function ensures that none of these modifications will take place." |
884 (let ((file-name-handler-alist nil) | 884 (let ((file-name-handler-alist nil) |
885 (format-alist nil) | 885 (format-alist nil) |
886 (after-insert-file-functions nil) | 886 (after-insert-file-functions nil) |
887 (coding-system-for-read 'binary) | |
887 (find-buffer-file-type-function | 888 (find-buffer-file-type-function |
888 (if (fboundp 'find-buffer-file-type) | 889 (if (fboundp 'find-buffer-file-type) |
889 (symbol-function 'find-buffer-file-type) | 890 (symbol-function 'find-buffer-file-type) |
890 nil))) | 891 nil))) |
891 (unwind-protect | 892 (unwind-protect |