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: Move etc/future-bug into etc/JOKES ?? Date: Thu, 01 Mar 2007 14:42:29 +0100 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1172761658 27976 80.91.229.12 (1 Mar 2007 15:07:38 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 1 Mar 2007 15:07:38 +0000 (UTC) Cc: emacs-devel@gnu.org To: Glenn Morris Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Mar 01 16:07:29 2007 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 1HMlXk-0006P1-Ll for ged-emacs-devel@m.gmane.org; Thu, 01 Mar 2007 14:42:01 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HMlXl-0003VE-W0 for ged-emacs-devel@m.gmane.org; Thu, 01 Mar 2007 08:42:02 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HMlXW-0003Tl-5V for emacs-devel@gnu.org; Thu, 01 Mar 2007 08:41:46 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HMlXU-0003TO-N9 for emacs-devel@gnu.org; Thu, 01 Mar 2007 08:41:45 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HMlXU-0003TI-Fe for emacs-devel@gnu.org; Thu, 01 Mar 2007 08:41:44 -0500 Original-Received: from pfepc.post.tele.dk ([195.41.46.237]) by monty-python.gnu.org with esmtp (Exim 4.52) id 1HMlXR-00031T-4a; Thu, 01 Mar 2007 08:41:41 -0500 Original-Received: from kfs-l.imdomain.dk.cua.dk (unknown [80.165.4.124]) by pfepc.post.tele.dk (Postfix) with SMTP id 328268A0092; Thu, 1 Mar 2007 14:41:38 +0100 (CET) In-Reply-To: (Kim F. Storm's message of "Thu\, 01 Mar 2007 13\:54\:45 +0100") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.94 (gnu/linux) X-detected-kernel: Linux 2.6, seldom 2.4 (older, 4) 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:67133 Archived-At: storm@cua.dk (Kim F. Storm) writes: > Here is a small patch for help.el which provides the following additional > help commands: > > C-h C-j => Display jokes (JOKES + future-bug + DEVEL.HUMOR) > > C-h C-o => Display other info sources (MORE.STUFF) > > C-h D => Debugging GNU Emacs (DEBUG) Actually, it might be better to move the current C-h C-d to C-h C-o => Display ordering information... We can then use these: C-h C-d => debugging info C-h C-x => eXternal sources of information ... ( [I don't care much about the jokes (C-h C-j), so I can leave that out if people dislike it]. Here's an updated patch (I'll fix the manual if approved): *** help.el 28 Feb 2007 23:33:46 +0100 1.326 --- help.el 01 Mar 2007 14:38:14 +0100 *************** *** 47,60 **** (define-key map "?" 'help-for-help) (define-key map "\C-c" 'describe-copying) ! (define-key map "\C-d" 'describe-distribution) (define-key map "\C-e" 'view-emacs-problems) (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-w" 'describe-no-warranty) ;; This does not fit the pattern, but it is natural given the C-\ command. (define-key map "\C-\\" 'describe-input-method) --- 47,63 ---- (define-key map "?" 'help-for-help) (define-key map "\C-c" 'describe-copying) ! (define-key map "\C-d" 'view-emacs-debugging) (define-key map "\C-e" 'view-emacs-problems) (define-key map "\C-f" 'view-emacs-FAQ) + (define-key map "\C-j" 'view-emacs-jokes) (define-key map "\C-m" 'view-order-manuals) (define-key map "\C-n" 'view-emacs-news) + (define-key map "\C-o" 'describe-distribution) (define-key map "\C-p" 'describe-project) (define-key map "\C-t" 'view-todo) (define-key map "\C-w" 'describe-no-warranty) + (define-key map "\C-x" 'view-external-sources) ;; This does not fit the pattern, but it is natural given the C-\ command. (define-key map "\C-\\" 'describe-input-method) *************** *** 178,184 **** (defalias 'help-for-help 'help-for-help-internal) ;; It can't find this, but nobody will look. (make-help-screen help-for-help-internal ! "a b c C e f F i I k C-k l L m p r s t v w C-c C-d C-f C-n C-p C-t C-w . or ? :" "You have typed %THIS-KEY%, the help character. Type a Help option: \(Use SPC or DEL to scroll through this text. Type \\\\[help-quit] to exit the Help command.) --- 181,187 ---- (defalias 'help-for-help 'help-for-help-internal) ;; It can't find this, but nobody will look. (make-help-screen help-for-help-internal ! "Type a help option: [abcCdDefFiIkKlLmprstvw.] C-[cdefjmnoptw] or ?" "You have typed %THIS-KEY%, the help character. Type a Help option: \(Use SPC or DEL to scroll through this text. Type \\\\[help-quit] to exit the Help command.) *************** *** 226,239 **** in the echo area. C-c Display Emacs copying permission (GNU General Public License). ! C-d Display Emacs ordering information. C-e Display info about Emacs problems. C-f Display the Emacs FAQ. C-m Display how to order printed Emacs manuals. C-n Display news of recent Emacs changes. C-p Display information about the GNU project. C-t Display the Emacs TODO list. ! C-w Display information on absence of warranty for GNU Emacs." help-map) --- 229,245 ---- in the echo area. C-c Display Emacs copying permission (GNU General Public License). ! C-d Display instructions for debugging GNU Emacs. C-e Display info about Emacs problems. C-f Display the Emacs FAQ. + C-j Display jokes about Emacs, GNU, and hacking. C-m Display how to order printed Emacs manuals. C-n Display news of recent Emacs changes. + C-o Display Emacs ordering information. C-p Display information about the GNU project. C-t Display the Emacs TODO list. ! C-w Display information on absence of warranty for GNU Emacs. ! C-x Display external sources of extensions to and information about Emacs." help-map) *************** *** 279,300 **** ;;; `User' help functions (defun describe-distribution () "Display info on how to obtain the latest version of GNU Emacs." (interactive) ! (view-file (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 () "Display info on all the kinds of warranty Emacs does NOT have." --- 285,309 ---- ;;; `User' help functions + (defun view-help-file (file &optional dir) + (view-file (expand-file-name file (or dir data-directory))) + (goto-address) + (goto-char (point-min))) + (defun describe-distribution () "Display info on how to obtain the latest version of GNU Emacs." (interactive) ! (view-help-file "DISTRIB")) (defun describe-copying () "Display info on how you may redistribute copies of GNU Emacs." (interactive) ! (view-help-file "COPYING")) (defun describe-project () "Display info on the GNU project." (interactive) ! (view-help-file "THE-GNU-PROJECT")) (defun describe-no-warranty () "Display info on all the kinds of warranty Emacs does NOT have." *************** *** 397,403 **** (defun view-todo (&optional arg) "Display the Emacs TODO list." (interactive "P") ! (view-file (expand-file-name "TODO" data-directory))) (defun view-echo-area-messages () "View the log of recent echo-area messages: the `*Messages*' buffer. --- 406,412 ---- (defun view-todo (&optional arg) "Display the Emacs TODO list." (interactive "P") ! (view-help-file "TODO")) (defun view-echo-area-messages () "View the log of recent echo-area messages: the `*Messages*' buffer. *************** *** 409,416 **** (defun view-order-manuals () "Display the Emacs ORDERS file." (interactive) ! (view-file (expand-file-name "ORDERS" data-directory)) ! (goto-address)) (defun view-emacs-FAQ () "Display the Emacs Frequently Asked Questions (FAQ) file." --- 418,424 ---- (defun view-order-manuals () "Display the Emacs ORDERS file." (interactive) ! (view-help-file "ORDERS")) (defun view-emacs-FAQ () "Display the Emacs Frequently Asked Questions (FAQ) file." *************** *** 421,427 **** (defun view-emacs-problems () "Display info on known problems with Emacs and possible workarounds." (interactive) ! (view-file (expand-file-name "PROBLEMS" data-directory))) (defun view-lossage () "Display last 100 input keystrokes. --- 429,465 ---- (defun view-emacs-problems () "Display info on known problems with Emacs and possible workarounds." (interactive) ! (view-help-file "PROBLEMS")) ! ! (defun view-emacs-debugging () ! "Display info on how to debug Emacs problems." ! (interactive) ! (view-help-file "DEBUG")) ! ! (defun view-external-sources () ! "Display external sources of information about Emacs." ! (interactive) ! (view-help-file "MORE.STUFF")) ! ! (defun view-emacs-jokes () ! "Display jokes about Emacs, the GNU project, and hacking." ! (interactive) ! (let ((buf (get-buffer-create "*JOKES*"))) ! (with-current-buffer buf ! (let ((inhibit-read-only t)) ! (erase-buffer) ! (insert "* Emacs, the GNU project, and hacking\n\n\n") ! (insert-file-contents (expand-file-name "JOKES" data-directory)) ! (goto-char (point-max)) ! (insert "\n\n\n* Future Bug report\n\n\n") ! (insert-file-contents (expand-file-name "future-bug" data-directory)) ! (goto-char (point-max)) ! (insert "\n\n\n* Emacs developer list humor\n\n\n") ! (insert-file-contents (expand-file-name "DEVEL.HUMOR" data-directory)) ! (outline-mode) ! (view-mode) ! (goto-char (point-min)))) ! (display-buffer buf))) (defun view-lossage () "Display last 100 input keystrokes. -- Kim F. Storm http://www.cua.dk