[Emacs-diffs] Changes to emacs/lisp/help.el

[Richard M. Stallman]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.236 emacs/lisp/help.el:1.237
*** emacs/lisp/help.el:1.236    Thu Oct 11 19:34:17 2001
--- emacs/lisp/help.el  Fri Dec 21 20:27:19 2001
***************
*** 250,270 ****
  (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)))
  
  (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))
    (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))
    (goto-char (point-min)))
  
  (defun describe-no-warranty ()
--- 250,267 ----
  (defun describe-distribution ()
    "Display info on how to obtain the latest version of GNU Emacs."
    (interactive)
!   (view-find (expand-file-name "DISTRIB" data-directory)))
  
  (defun describe-copying ()
    "Display info on how you may redistribute copies of GNU Emacs."
    (interactive)
!   (view-file (expand-file-name "COPYING" data-directory))
    (goto-char (point-min)))
  
  (defun describe-project ()
    "Display info on the GNU project."
    (interactive)
!   (view-file (expand-file-name "THE-GNU-PROJECT" data-directory))
    (goto-char (point-min)))
  
  (defun describe-no-warranty ()
***************
*** 307,319 ****
                                                      nil "^ONEWS\\.[0-9]+$"
                                                      nil)))))))
      (if file
!       (find-file-read-only (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))
    (goto-address))
  
  (defun view-emacs-FAQ ()
--- 304,316 ----
                                                      nil "^ONEWS\\.[0-9]+$"
                                                      nil)))))))
      (if file
!       (view-file (expand-file-name file data-directory))
        (error "No such old news"))))
  
  (defun view-order-manuals ()
    "Display the Emacs ORDERS file."
    (interactive)
!   (view-file (expand-file-name "ORDERS" data-directory))
    (goto-address))
  
  (defun view-emacs-FAQ ()