Mercurial > emacs
changeset 80290:918dceaeacfc
(describe-gnu-project): Rename from describe-project. Change users.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 06 Mar 2008 00:08:01 +0000 |
| parents | 29d05c607c9b |
| children | 30748d0621d9 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Mar 06 00:07:52 2008 +0000 +++ b/lisp/startup.el Thu Mar 06 00:08:01 2008 +0000 @@ -1148,7 +1148,7 @@ '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")) "Browse http://www.gnu.org/gnu/linux-and-gnu.html") - '("GNU" (lambda (button) (describe-project)) + '("GNU" (lambda (button) (describe-gnu-project)) "Display info on the GNU project"))) " operating system.\n" :face variable-pitch "To quit a partially entered command, type " @@ -1207,7 +1207,7 @@ '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")) "Browse http://www.gnu.org/gnu/linux-and-gnu.html") - '("GNU" (lambda (button) (describe-project)) + '("GNU" (lambda (button) (describe-gnu-project)) "Display info on the GNU project."))) " operating system.\n" :face (lambda () @@ -1222,7 +1222,7 @@ (lambda () emacs-copyright) "\n\n" :face variable-pitch - :link ("GNU and Freedom" (lambda (button) (describe-project))) + :link ("GNU and Freedom" (lambda (button) (describe-gnu-project))) "\tWhy we developed GNU Emacs, and the GNU operating system\n" :link ("Absence of Warranty" (lambda (button) (describe-no-warranty))) "\tGNU Emacs comes with " @@ -1816,7 +1816,7 @@ (insert "To follow a link, click Mouse-1 on it, or move to it and type RET.\n\n") (insert-button "GNU and Freedom" - 'action (lambda (button) (describe-project)) + 'action (lambda (button) (describe-gnu-project)) 'follow-link t) (insert "\t\tWhy we developed GNU Emacs and the GNU system\n")