(easy-mmode-pretty-mode-name): Prettier.

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 58def617a917e1ee9c3c37ea57140eaad8357416..6b8ab0503f074028e0c558346e24e56d07b651b8 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -57,8 +57,10 @@
   "Turn the symbol MODE into a string intended for the user.
 If provided LIGHTER will be used to help choose capitalization."
   (let* ((case-fold-search t)
-        (name (concat (capitalize (replace-regexp-in-string
-                                   "-mode\\'" "" (symbol-name mode)))
+        (name (concat (replace-regexp-in-string
+                       "-Minor" " minor"
+                       (capitalize (replace-regexp-in-string
+                                    "-mode\\'" "" (symbol-name mode))))
                       " mode")))
     (if (not (stringp lighter)) name
       (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\-s+\\'" "" lighter))