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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5aa045b96af441fa66ed35b9dc6644e6cb0b4765..22cb7391651ce22cc4a1c49c123dd99389b8f3e0 100644 (file)
--- 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 d5088d8ec758621a79b74ff5907e03735c2f6a71..a0308b74b5ddcddea796bee78a329c5e33a574ff 100644 (file)
--- 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 ()