* mode name
@ 2003-02-05 19:04 Tak Ota
2003-02-07 9:19 ` Richard Stallman
0 siblings, 1 reply; 4+ messages in thread
From: Tak Ota @ 2003-02-05 19:04 UTC (permalink / raw)
Many modes have a name (the third argument to define-derived-mode)
consisting of more than one words. Some use '-' to concatenate each
word in the name string while many leave a space between words. The
latter is annoying on the mode line when it is listed together with
other mode names since each mode name is separated by a space too.
Can we change all those spaces in mode name to '-' so that each mode
name stands out from each other?
-Tak
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: mode name
2003-02-05 19:04 mode name Tak Ota
@ 2003-02-07 9:19 ` Richard Stallman
2003-02-07 22:33 ` Tak Ota
0 siblings, 1 reply; 4+ messages in thread
From: Richard Stallman @ 2003-02-07 9:19 UTC (permalink / raw)
Cc: emacs-devel
Can we change all those spaces in mode name to '-' so that each mode
name stands out from each other?
That may be a good idea. Could you tell me a list of these modes
that would be changed?
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: mode name
2003-02-07 9:19 ` Richard Stallman
@ 2003-02-07 22:33 ` Tak Ota
2003-02-09 12:40 ` Richard Stallman
0 siblings, 1 reply; 4+ messages in thread
From: Tak Ota @ 2003-02-07 22:33 UTC (permalink / raw)
Cc: emacs-devel
Fri, 07 Feb 2003 04:19:41 -0500: Richard Stallman <rms@gnu.org> wrote:
> Can we change all those spaces in mode name to '-' so that each mode
> name stands out from each other?
>
> That may be a good idea. Could you tell me a list of these modes
> that would be changed?
cd d:/emacs/emacs-21.3.50/lisp/
find "." -type d "(" -name RCS -o -name CVS -o -name SCCS ")" -prune -o -type f "!" -name "*~" "!" -name "*,v" "!" -name "s.*" -name "*.el" -print0 | xargs -0 -e grep -n -e "(define-derived-mode.*\"[^\"]* .[^\"]*\"" NUL
./add-log.el:589:(define-derived-mode change-log-mode text-mode "Change Log"
./calendar/todo-mode.el:931:(define-derived-mode todo-edit-mode text-mode "TODO Edit"
./cmuscheme.el:160:(define-derived-mode inferior-scheme-mode comint-mode "Inferior Scheme"
./emacs-lisp/lisp-mode.el:375:(define-derived-mode lisp-interaction-mode emacs-lisp-mode "Lisp Interaction"
./gdb-ui.el:368:(define-derived-mode gdb-inferior-io-mode comint-mode "Debuggee I/O"
./gnus/gnus-art.el:4143:(define-derived-mode gnus-article-edit-mode text-mode "Article Edit"
./progmodes/ps-mode.el:977:(define-derived-mode ps-run-mode fundamental-mode "Interactive PS"
./progmodes/tcl.el:1091:(define-derived-mode inferior-tcl-mode comint-mode "Inferior Tcl"
./vc.el:2096:(define-derived-mode vc-dired-mode dired-mode "Dired under VC"
cd d:/emacs/emacs-21.3.50/lisp/
find "." -type d "(" -name RCS -o -name CVS -o -name SCCS ")" -prune -o -type f "!" -name "*~" "!" -name "*,v" "!" -name "s.*" -name "*.el" -print0 | xargs -0 -e grep -n -e "setq mode-name \"[^\"]* [^\"]*\"" NUL
./bookmark.el:1625: (setq mode-name "Bookmark Menu")
./buff-menu.el:173: (setq mode-name "Buffer Menu")
./calc/calc-yank.el:445: (setq mode-name "Calc Edit")
./calc/calc.el:1045: (setq mode-name "Calc Trail")
./chistory.el:146: (setq mode-name "Command History")
./dired-x.el:684: (setq mode-name "Virtual Dired"
./ebuff-menu.el:149: (setq mode-name "Electric Buffer Menu")
./echistory.el:120: (setq mode-name "Electric History")
./edmacro.el:146: (setq mode-name "Edit Macro")
./emacs-lisp/edebug.el:4027: (setq mode-name "Edebug Eval")
./eshell/esh-test.el:163: (setq mode-name "EShell Test")
./gnus/gnus-eform.el:82: (setq mode-name "Edit Form")
./gnus/gnus-salt.el:979: (setq mode-name "Gnus Carpal")
./gnus/gnus-srvr.el:670: (setq mode-name "Browse Server")
./info.el:2461: (setq mode-name "Info Edit")
./international/swedish.el:150:; (setq mode-name "Indented Swedish")
./mail/rmailedit.el:63: (setq mode-name "RMAIL Edit")
./mail/rmailsum.el:739: (setq mode-name "RMAIL Summary")
./net/ange-ftp.el:1967: (setq mode-name "Internal Ange-ftp")
./obsolete/rnewspost.el:130: (setq mode-name "News Reply")
./progmodes/cpp.el:471: (setq mode-name "CPP Edit")
./progmodes/ebrowse.el:2016: (setq mode-name "Electric Position Menu"
./progmodes/ebrowse.el:3977: (setq mode-name "Electric Position Menu"
./progmodes/inf-lisp.el:253: (setq mode-name "Inferior Lisp")
./simple.el:3951: (setq mode-name "Completion List")
./terminal.el:533: (setq mode-name "Terminal Edit")
./textmodes/page-ext.el:803: (setq mode-name "Addresses Directory")
./xscheme.el:360: (setq mode-name "Scheme Interaction"))
./xscheme.el:416: (setq mode-name "Scheme Debugger"))
-Tak
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2003-02-09 12:40 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-02-05 19:04 mode name Tak Ota
2003-02-07 9:19 ` Richard Stallman
2003-02-07 22:33 ` Tak Ota
2003-02-09 12:40 ` Richard Stallman
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).