From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 1 Oct 2000 00:58:35 +0000 (+0000)
Subject: (easy-mmode-pretty-mode-name): Prettier.
X-Git-Tag: emacs-pretest-21.0.90~1240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b643ec531147868c1fa07423de5818099517ba0f;p=emacs.git

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

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 58def617a91..6b8ab0503f0 100644
--- 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))