735 |
(and set-auto-coding-function |
(and set-auto-coding-function |
736 |
(save-excursion |
(save-excursion |
737 |
(funcall set-auto-coding-function |
(funcall set-auto-coding-function |
738 |
name (- (point-max) (point))))))) |
name (- (point-max) (point))))) |
739 |
|
(car (find-operation-coding-system |
740 |
|
'insert-file-contents name t)))) |
741 |
(multibyte enable-multibyte-characters) |
(multibyte enable-multibyte-characters) |
742 |
(detected (detect-coding-region |
(detected (detect-coding-region |
743 |
(point-min) |
(point-min) |
749 |
coding |
coding |
750 |
(coding-system-eol-type detected)))) |
(coding-system-eol-type detected)))) |
751 |
(setq coding |
(setq coding |
752 |
(or (find-new-buffer-file-coding-system detected) |
(find-new-buffer-file-coding-system detected))) |
|
(let ((file-coding |
|
|
(find-operation-coding-system |
|
|
'insert-file-contents buffer-file-name))) |
|
|
(if (consp file-coding) |
|
|
(setq file-coding (car file-coding)) |
|
|
file-coding))))) |
|
753 |
(if (or (eq coding 'no-conversion) |
(if (or (eq coding 'no-conversion) |
754 |
(eq (coding-system-type coding) 5)) |
(eq (coding-system-type coding) 5)) |
755 |
(setq multibyte (set-buffer-multibyte nil))) |
(setq multibyte (set-buffer-multibyte nil))) |