(view-order-manuals, view-emacs-news, describe-copying)

(describe-distribution, describe-project): Use view-file.

2 files changed, 8 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5aa045b96af..22cb7391651 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -21,6 +21,9 @@
 
 2001-12-21  Richard M. Stallman  <rms@gnu.org>
 
+        * help.el (view-order-manuals, view-emacs-news, describe-copying)
+        (describe-distribution, describe-project): Use view-file.
+
         * emacs-lisp/cl-indent.el (define-modify-macro): Better indent spec.
 
         * net/ange-ftp.el (ange-ftp-file-modtime): Use save-match-data.
diff --git a/lisp/help.el b/lisp/help.el
index d5088d8ec75..a0308b74b5d 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -250,21 +250,18 @@ If that doesn't give a function, return nil."
 (defun describe-distribution ()
   "Display info on how to obtain the latest version of GNU Emacs."
   (interactive)
-  (find-file-read-only
-   (expand-file-name "DISTRIB" data-directory)))
+  (view-find (expand-file-name "DISTRIB" data-directory)))
 
 (defun describe-copying ()
   "Display info on how you may redistribute copies of GNU Emacs."
   (interactive)
-  (find-file-read-only
-   (expand-file-name "COPYING" data-directory))
+  (view-file (expand-file-name "COPYING" data-directory))
   (goto-char (point-min)))
 
 (defun describe-project ()
   "Display info on the GNU project."
   (interactive)
-  (find-file-read-only
-   (expand-file-name "THE-GNU-PROJECT" data-directory))
+  (view-file (expand-file-name "THE-GNU-PROJECT" data-directory))
   (goto-char (point-min)))
 
 (defun describe-no-warranty ()
@@ -307,13 +304,13 @@ With numeric argument, display information on correspondingly older changes."
                                                       nil "^ONEWS\\.[0-9]+$"
                                                       nil)))))))
     (if file
-        (find-file-read-only (expand-file-name file data-directory))
+        (view-file (expand-file-name file data-directory))
       (error "No such old news"))))
 
 (defun view-order-manuals ()
   "Display the Emacs ORDERS file."
   (interactive)
-  (find-file-read-only (expand-file-name "ORDERS" data-directory))
+  (view-file (expand-file-name "ORDERS" data-directory))
   (goto-address))
 
 (defun view-emacs-FAQ ()