1850 |
(setq coding (funcall set-auto-coding-function |
(setq coding (funcall set-auto-coding-function |
1851 |
filename (- (point-max) (point-min))))) |
filename (- (point-max) (point-min))))) |
1852 |
(or coding |
(or coding |
1853 |
(setq coding (find-operation-coding-system |
(setq coding (car (find-operation-coding-system |
1854 |
'insert-file-contents |
'insert-file-contents |
1855 |
filename visit beg end replace))) |
filename visit beg end replace)))) |
1856 |
(if (coding-system-p coding) |
(if (coding-system-p coding) |
1857 |
(or enable-multibyte-characters |
(or enable-multibyte-characters |
1858 |
(setq coding |
(setq coding |