From b643ec531147868c1fa07423de5818099517ba0f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 1 Oct 2000 00:58:35 +0000 Subject: [PATCH] (easy-mmode-pretty-mode-name): Prettier. --- lisp/emacs-lisp/easy-mmode.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)) -- 2.39.2