diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-05-08 19:39:20 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-05-08 19:39:20 +0000 |
| commit | 906aee93915154417fa2b78d6fa6a869f7f1c71f (patch) | |
| tree | 38323f458086dd9b33a279da582bea82fd602b4b /lisp/emacs-lisp/easy-mmode.el | |
| parent | c29d24ea5e332075074765346d20f24ef25d2e77 (diff) | |
| download | emacs-906aee93915154417fa2b78d6fa6a869f7f1c71f.tar.gz emacs-906aee93915154417fa2b78d6fa6a869f7f1c71f.tar.bz2 emacs-906aee93915154417fa2b78d6fa6a869f7f1c71f.zip | |
(easy-mmode-pretty-mode-name): Improve commentary.
Diffstat (limited to 'lisp/emacs-lisp/easy-mmode.el')
| -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 94db7cc586f..a02f7be7d13 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -61,9 +61,11 @@ If provided, LIGHTER will be used to help choose capitalization by, replacing its case-insensitive matches with the literal string in LIGHTER." (let* ((case-fold-search t) - ;; Produce "Foo-Bar Minor mode" from foo-bar-minor-mode. + ;; Produce "Foo-Bar minor mode" from foo-bar-minor-mode. (name (concat (replace-regexp-in-string - ;; "Foo-Bar-Minor" -> "Foo-Bar minor" + ;; If the original mode name included "-minor" (some + ;; of them don't, e.g. auto-revert-mode), then + ;; replace it with " minor". "-Minor" " minor" ;; "foo-bar-minor" -> "Foo-Bar-Minor" (capitalize (replace-regexp-in-string |