264 |
;; We have to decode the file in any environment. |
;; We have to decode the file in any environment. |
265 |
(let ((default-enable-multibyte-characters t) |
(let ((default-enable-multibyte-characters t) |
266 |
(coding-system-for-read 'iso-2022-7bit)) |
(coding-system-for-read 'iso-2022-7bit)) |
267 |
(find-file-read-only (expand-file-name "HELLO" data-directory)))) |
(view-file (expand-file-name "HELLO" data-directory)))) |
268 |
|
|
269 |
(defun universal-coding-system-argument (coding-system) |
(defun universal-coding-system-argument (coding-system) |
270 |
"Execute an I/O command using the specified coding system." |
"Execute an I/O command using the specified coding system." |