Mercurial > emacs

diff lisp/emacs-lisp/easy-mmode.el @ 62181:14a20ce36638

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-mmode-pretty-mode-name): Improve commentary.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 08 May 2005 19:38:06 +0000
parents e64f1e2ecec2
children 50ff61f0f99d 62afea0771d8
line wrap: on
line diff
--- a/lisp/emacs-lisp/easy-mmode.el	Sun May 08 19:34:28 2005 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Sun May 08 19:38:06 2005 +0000
@@ -61,9 +61,11 @@
 If provided, LIGHTER will be used to help choose capitalization by,
 replacing its case-insensitive matches with the literal string in LIGHTER."
   (let* ((case-fold-search t)
-	 ;; Produce "Foo-Bar Minor mode" from foo-bar-minor-mode.
+	 ;; Produce "Foo-Bar minor mode" from foo-bar-minor-mode.
 	 (name (concat (replace-regexp-in-string
-			;; "Foo-Bar-Minor" -> "Foo-Bar minor"
+			;; If the original mode name included "-minor" (some
+			;; of them don't, e.g. auto-revert-mode), then
+			;; replace it with " minor".
 			"-Minor" " minor"
 			;; "foo-bar-minor" -> "Foo-Bar-Minor"
 			(capitalize (replace-regexp-in-string