(easy-mmode-pretty-mode-name): Improve commentary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5c345d9c0c038ba447bfae0dde068bf53a16f60..f7255a505aab203118cc7ed53f1ac81ee4a2c5e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-05-08  Eli Zaretskii  <eliz@gnu.org>
 
+       * emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): Improve
+       commentary.
+
        * simple.el (next-error-overlay-arrow-position): Revert the change
        made on 2005-04-30.
 

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 94db7cc586f25b13acac46830e0585b9618a1be0..a02f7be7d13fc9fb1a6e7899a6775ead4a7a00c8 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -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