From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: storm@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: Online help and help-for-help improvements Date: Tue, 04 Mar 2008 19:17:09 +0100 Message-ID: <87mype8ica.fsf@kfs-lx.rd.rdm> References: <87myplmgn8.fsf@kfs-lx.rd.rdm> <877igookke.fsf@stupidchicken.com> <871w6wk7n1.fsf@kfs-lx.rd.rdm> <87ve48ej7y.fsf@stupidchicken.com> <87od9xyiz7.fsf@jurta.org> <87lk50c4i5.fsf@kfs-lx.rd.rdm> <877igj74wg.fsf@kfs-lx.rd.rdm> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1204654694 503 80.91.229.12 (4 Mar 2008 18:18:14 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 4 Mar 2008 18:18:14 +0000 (UTC) Cc: Juri Linkov , Chong Yidong , emacs-devel@gnu.org To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Mar 04 19:18:34 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JWbiZ-0008TZ-4l for ged-emacs-devel@m.gmane.org; Tue, 04 Mar 2008 19:18:23 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JWbi1-00038c-Sx for ged-emacs-devel@m.gmane.org; Tue, 04 Mar 2008 13:17:49 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JWbhY-0002np-8v for emacs-devel@gnu.org; Tue, 04 Mar 2008 13:17:20 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JWbhV-0002n7-Eg for emacs-devel@gnu.org; Tue, 04 Mar 2008 13:17:19 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JWbhV-0002my-71 for emacs-devel@gnu.org; Tue, 04 Mar 2008 13:17:17 -0500 Original-Received: from mail-relay.sonofon.dk ([212.88.64.25]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1JWbhU-0006jx-GJ for emacs-devel@gnu.org; Tue, 04 Mar 2008 13:17:16 -0500 Original-Received: (qmail 18575 invoked from network); 4 Mar 2008 18:17:10 -0000 Original-Received: from unknown (HELO kfs-lx.rd.rdm.cua.dk) (213.83.150.21) by 0 with SMTP; 4 Mar 2008 18:17:10 -0000 In-Reply-To: (Stefan Monnier's message of "Tue\, 04 Mar 2008 10\:49\:18 -0500") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: FreeBSD 4.6-4.9 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:91304 Archived-At: Stefan Monnier writes: >>>> One way would be to simply add aliases for the new names >>>> now for 22.2 release, and declare the old names obsolete >>> Here's a patch for the Emacs 22 branch: Index: etc/NEWS =================================================================== RCS file: /cvsroot/emacs/emacs/etc/NEWS,v retrieving revision 1.1465.2.66 diff -u -r1.1465.2.66 NEWS --- etc/NEWS 3 Mar 2008 03:28:33 -0000 1.1465.2.66 +++ etc/NEWS 4 Mar 2008 18:11:41 -0000 @@ -42,8 +42,22 @@ ** Support for GNU/kFreeBSD (GNU userland and FreeBSD kernel) was added. * Changes in Emacs 22.2 +** `describe-project' is renamed to `describe-gnu-project'. + +** `view-todo' is renamed to `view-emacs-news'. + ** `find-name-dired' now uses -iname rather than -name for case-insensitive filesystems. The default behavior is determined by the value of `read-file-name-completion-ignore-case'; if you don't Index: lisp/help.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/help.el,v retrieving revision 1.327.2.4 diff -u -r1.327.2.4 help.el --- lisp/help.el 7 Jan 2008 02:44:43 -0000 1.327.2.4 +++ lisp/help.el 4 Mar 2008 18:13:05 -0000 @@ -53,8 +53,8 @@ (define-key map "\C-f" 'view-emacs-FAQ) (define-key map "\C-m" 'view-order-manuals) (define-key map "\C-n" 'view-emacs-news) - (define-key map "\C-p" 'describe-project) - (define-key map "\C-t" 'view-todo) + (define-key map "\C-p" 'describe-gnu-project) + (define-key map "\C-t" 'view-emacs-todo) (define-key map "\C-w" 'describe-no-warranty) ;; This does not fit the pattern, but it is natural given the C-\ command. @@ -292,7 +292,10 @@ (view-file (expand-file-name "COPYING" data-directory)) (goto-char (point-min))) -(defun describe-project () +(defalias 'describe-project 'describe-gnu-project + "Display info on the GNU project. +This function is deprecated. Use `describe-gnu-project' instead.") +(defun describe-gnu-project () "Display info on the GNU project." (interactive) (view-file (expand-file-name "THE-GNU-PROJECT" data-directory)) @@ -396,7 +399,10 @@ (point))))))) -(defun view-todo (&optional arg) +(defalias 'view-todo 'view-emacs-todo + "Display the Emacs TODO list. +This function is deprecated. Use `view-emacs-todo' instead.") +(defun view-emacs-todo (&optional arg) "Display the Emacs TODO list." (interactive "P") (view-file (expand-file-name "TODO" data-directory))) Index: lisp/menu-bar.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/menu-bar.el,v retrieving revision 1.302.2.8 diff -u -r1.302.2.8 menu-bar.el --- lisp/menu-bar.el 7 Jan 2008 02:44:30 -0000 1.302.2.8 +++ lisp/menu-bar.el 4 Mar 2008 18:13:41 -0000 @@ -1341,7 +1341,7 @@ :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 Index: lisp/startup.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v retrieving revision 1.436.2.15 diff -u -r1.436.2.15 startup.el --- lisp/startup.el 2 Mar 2008 16:17:57 -0000 1.436.2.15 +++ lisp/startup.el 4 Mar 2008 18:14:03 -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") Index: man/help.texi =================================================================== RCS file: /cvsroot/emacs/emacs/man/Attic/help.texi,v retrieving revision 1.53.2.1 diff -u -r1.53.2.1 help.texi --- man/help.texi 9 Jan 2008 04:08:27 -0000 1.53.2.1 +++ man/help.texi 4 Mar 2008 18:14:27 -0000 @@ -606,7 +606,7 @@ @kindex C-h C-n @findex view-emacs-news @kindex C-h C-p -@findex describe-project +@findex describe-gnu-project @kindex C-h C-t @findex view-emacs-todo @kindex C-h C-w @@ -629,9 +629,9 @@ recent version of Emacs (@code{view-emacs-news}). @item C-h C-p Display general information about the GNU Project -(@code{describe-project}). +(@code{describe-gnu-project}). @item C-h C-t -Display the Emacs to-do list (@code{view-todo}). +Display the Emacs to-do list (@code{view-emacs-todo}). @item C-h C-w Display the full details on the complete absence of warranty for GNU Emacs (@code{describe-no-warranty}). -- Kim F. Storm http://www.cua.dk