[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help.el |
Date: |
Fri, 21 Dec 2001 20:27:19 -0500 |
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 ()
- [Emacs-diffs] Changes to emacs/lisp/help.el,
Richard M. Stallman <=