Commit b643ec53 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent f77eca76
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment