diff options
| author | Stefan Monnier | 2000-10-01 00:58:35 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-10-01 00:58:35 +0000 |
| commit | b643ec531147868c1fa07423de5818099517ba0f (patch) | |
| tree | 5beddb7953ced9d44acad53ffa585e8c57652f5e | |
| parent | f77eca766aca66a64e05362c9b8895bb2e3c473c (diff) | |
| download | emacs-b643ec531147868c1fa07423de5818099517ba0f.tar.gz emacs-b643ec531147868c1fa07423de5818099517ba0f.zip | |
(easy-mmode-pretty-mode-name): Prettier.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 6 |
1 files 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 @@ | |||
| 57 | "Turn the symbol MODE into a string intended for the user. | 57 | "Turn the symbol MODE into a string intended for the user. |
| 58 | If provided LIGHTER will be used to help choose capitalization." | 58 | If provided LIGHTER will be used to help choose capitalization." |
| 59 | (let* ((case-fold-search t) | 59 | (let* ((case-fold-search t) |
| 60 | (name (concat (capitalize (replace-regexp-in-string | 60 | (name (concat (replace-regexp-in-string |
| 61 | "-mode\\'" "" (symbol-name mode))) | 61 | "-Minor" " minor" |
| 62 | (capitalize (replace-regexp-in-string | ||
| 63 | "-mode\\'" "" (symbol-name mode)))) | ||
| 62 | " mode"))) | 64 | " mode"))) |
| 63 | (if (not (stringp lighter)) name | 65 | (if (not (stringp lighter)) name |
| 64 | (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\-s+\\'" "" lighter)) | 66 | (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\-s+\\'" "" lighter)) |