Mercurial > emacs

changeset 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 c93c7826e334
children 2c83655d50ed
files lisp/emacs-lisp/easy-mmode.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
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