From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Masatake YAMATO Newsgroups: gmane.emacs.devel Subject: Re: |PATCH| describe-minor-mode and describe-minor-mode-from-indicator Date: Sat, 18 Jan 2003 23:12:30 +0900 (JST) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <20030118.231230.59650306.jet@gyve.org> References: <20030118.163543.59461489.jet@gyve.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1042903300 30752 80.91.224.249 (18 Jan 2003 15:21:40 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 18 Jan 2003 15:21:40 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Zume-0007z3-00 for ; Sat, 18 Jan 2003 16:21:20 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 18Zuwb-0003NO-00 for ; Sat, 18 Jan 2003 16:31:37 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18ZunN-0001DM-03 for emacs-devel@quimby.gnus.org; Sat, 18 Jan 2003 10:22:05 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18Zumy-00011B-00 for emacs-devel@gnu.org; Sat, 18 Jan 2003 10:21:40 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18Zumb-0000Ji-00 for emacs-devel@gnu.org; Sat, 18 Jan 2003 10:21:18 -0500 Original-Received: from r-maa.spacetown.ne.jp ([210.130.136.40]) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18ZumK-0007zj-00 for emacs-devel@gnu.org; Sat, 18 Jan 2003 10:21:01 -0500 Original-Received: from localhost (h219-110-075-022.catv01.itscom.jp [219.110.75.22]) by r-maa.spacetown.ne.jp (8.11.6) with ESMTP id h0IFKvY12410; Sun, 19 Jan 2003 00:20:57 +0900 (JST) Original-To: monnier+gnu/emacs@rum.cs.yale.edu In-Reply-To: <20030118.163543.59461489.jet@gyve.org> X-Mailer: Mew version 2.2 on Emacs 21.3 / Mule 5.0 (SAKAKI) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:10848 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:10848 I wrote: > Background: Few days ago, I found a strange string > on mode-line: "doe". I wonder what is "doe". However, > I cannot find a way to know what is doe. M-x describe-mode > tells me nothing about doe. Finally I have to do > "grep doe emacs/lisp/*.el". I'm very sorry. This is my misunderstanding. The code which puts "doe" on the mode string is at my .emacs;-) However, I think the follwoing function I wrote is still useful: 3. I added "Describe `MinorMode'" menu item to "Minor Modes" popup menu. The user can get help about a minor mode with mouse-3. John Paul Wallington lets me know my misunderstanding. Thank you, John. Masatake YAMATO What I put in my .emacs. ;; From: Richard Mlynarik ;; Subject: Re: case-fold-search indicator ;; Newsgroups: gnu.emacs.sources ;; Date: Fri, 22 Jun 2001 22:04:52 GMT ;; From: jcasadonte@northbound-train.com (Joe Casadonte) ;; Date: 21 Jun 2001 07:21:42 -0700 ;; Before I go and write this myself, does anyone have a nifty way to ;; indicate whether or not case-fold-search is set? I'm thinking ;; something in the modeline, like overwrite does. ;; I've been using these since the year dot: (or (assoc 'case-fold-search minor-mode-alist) (setq minor-mode-alist (cons '(case-fold-search "" " NoCFS") minor-mode-alist))) (or (assoc 'debug-on-error minor-mode-alist) (setq minor-mode-alist (append minor-mode-alist '((debug-on-error " doe"))))) (or (assoc 'debug-on-quit minor-mode-alist) (setq minor-mode-alist (append minor-mode-alist '((debug-on-quit " doq"))))) (or (assoc 'make-backup-files minor-mode-alist) (setq minor-mode-alist (append minor-mode-alist '((make-backup-files "" (buffer-file-name " NoBack" "")))))) (or (assoc 'buffer-auto-save-file-name minor-mode-alist) (setq minor-mode-alist (append minor-mode-alist '((buffer-auto-save-file-name "" (buffer-file-name " NoSave" ""))))))