From 64f3b7d38fef2040f4d9ee6b24727909411ea5c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 Dec 2001 01:27:34 +0000 Subject: [PATCH] (view-order-manuals, view-emacs-news, describe-copying) (describe-distribution, describe-project): Use view-file. --- lisp/ChangeLog | 3 +++ lisp/help.el | 13 +++++-------- 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 + * 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 () -- 2.39.2