(max-lisp-eval-depth (max max-lisp-eval-depth 600))
coding-system)
(find-file file)
+ (setq buffer-read-only nil)
(setq coding-system (if (boundp 'buffer-file-coding-system)
buffer-file-coding-system
file-coding-system))
(condition-case err
(progn
(find-file file)
+ (setq buffer-read-only nil)
(buffer-disable-undo (current-buffer))
(if (boundp 'MULE)
(setq output-coding-system file-coding-system)