(view-hello-file): Use `view-file' instead of `find-file-read-only'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97240909104442bfd7d3d68308344d9adc65f68a..89724f7323d52caa7354e4e50695eae0b270eada 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-14  Juanma Barranquero  <lektu@terra.es>
+
+       * international/mule-cmds.el (view-hello-file): Use `view-file'
+       instead of `find-file-read-only'.
+
 2003-02-13  Markus Rost  <rost@math.ohio-state.edu>
 
        * files.el (find-alternate-file): Undo last change.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 92df9fcb4c07f6c945466605649e25ceac024456..01bb05a095510dd0bfff36220643fd81d056370c 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -264,7 +264,7 @@ wrong, use this command again to toggle back to the right mode."
   ;; We have to decode the file in any environment.
   (let ((default-enable-multibyte-characters t)
        (coding-system-for-read 'iso-2022-7bit))
-    (find-file-read-only (expand-file-name "HELLO" data-directory))))
+    (view-file (expand-file-name "HELLO" data-directory))))
 
 (defun universal-coding-system-argument (coding-system)
   "Execute an I/O command using the specified coding system."