From 015b0d507d052f715d4dbf8df7c63c624372b427 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 6 Mar 2008 00:08:01 +0000 Subject: [PATCH] (describe-gnu-project): Rename from describe-project. Change users. --- lisp/menu-bar.el | 2 +- lisp/startup.el | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 4280dad5962..38479b676ab 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1341,7 +1341,7 @@ key, a click, or a menu-item")) :help "Read the Introduction to Emacs Lisp Programming")) (define-key menu-bar-help-menu [about-gnu-project] - '(menu-item "About GNU" describe-project + '(menu-item "About GNU" describe-gnu-project :help "About the GNU System, GNU Project, and GNU/Linux")) (define-key menu-bar-help-menu [about-emacs] '(menu-item "About Emacs" about-emacs diff --git a/lisp/startup.el b/lisp/startup.el index 4f66a1cf501..55f5e98c06c 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1148,7 +1148,7 @@ regardless of the value of this variable." '("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 @@ Each element in the list should be a list of strings or pairs '("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 @@ Each element in the list should be a list of strings or pairs (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 @@ Type \\[describe-distribution] for information on ")) (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") -- 2.39.5