Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 49779:2207016a3e9e
(view-hello-file): Use `view-file' instead of `find-file-read-only'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 14 Feb 2003 06:54:44 +0000 |
| parents | b76187acee2b |
| children | 9444af9dba75 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49778:84da4f0bdf5d | 49779:2207016a3e9e |
|---|---|
| 262 "Display the HELLO file which list up many languages and characters." | 262 "Display the HELLO file which list up many languages and characters." |
| 263 (interactive) | 263 (interactive) |
| 264 ;; We have to decode the file in any environment. | 264 ;; We have to decode the file in any environment. |
| 265 (let ((default-enable-multibyte-characters t) | 265 (let ((default-enable-multibyte-characters t) |
| 266 (coding-system-for-read 'iso-2022-7bit)) | 266 (coding-system-for-read 'iso-2022-7bit)) |
| 267 (find-file-read-only (expand-file-name "HELLO" data-directory)))) | 267 (view-file (expand-file-name "HELLO" data-directory)))) |
| 268 | 268 |
| 269 (defun universal-coding-system-argument (coding-system) | 269 (defun universal-coding-system-argument (coding-system) |
| 270 "Execute an I/O command using the specified coding system." | 270 "Execute an I/O command using the specified coding system." |
| 271 (interactive | 271 (interactive |
| 272 (let ((default (and buffer-file-coding-system | 272 (let ((default (and buffer-file-coding-system |