(describe-gnu-project): Rename from describe-project. Change users.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 4280dad5962ba1af2e205e41c3d45f761ca38cdc..38479b676abf91b019e4d1efe08b81fe3bc319ff 100644 (file)
--- 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 4f66a1cf5013bf6ff2aff686b1e0b86e732a2371..55f5e98c06cbc10062e1369e44060a194d804e6d 100644 (file)
--- 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")