61 |
If provided, LIGHTER will be used to help choose capitalization by, |
If provided, LIGHTER will be used to help choose capitalization by, |
62 |
replacing its case-insensitive matches with the literal string in LIGHTER." |
replacing its case-insensitive matches with the literal string in LIGHTER." |
63 |
(let* ((case-fold-search t) |
(let* ((case-fold-search t) |
64 |
;; Produce "Foo-Bar Minor mode" from foo-bar-minor-mode. |
;; Produce "Foo-Bar minor mode" from foo-bar-minor-mode. |
65 |
(name (concat (replace-regexp-in-string |
(name (concat (replace-regexp-in-string |
66 |
;; "Foo-Bar-Minor" -> "Foo-Bar minor" |
;; If the original mode name included "-minor" (some |
67 |
|
;; of them don't, e.g. auto-revert-mode), then |
68 |
|
;; replace it with " minor". |
69 |
"-Minor" " minor" |
"-Minor" " minor" |
70 |
;; "foo-bar-minor" -> "Foo-Bar-Minor" |
;; "foo-bar-minor" -> "Foo-Bar-Minor" |
71 |
(capitalize (replace-regexp-in-string |
(capitalize (replace-regexp-in-string |