From 906aee93915154417fa2b78d6fa6a869f7f1c71f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 8 May 2005 19:39:20 +0000 Subject: [PATCH] (easy-mmode-pretty-mode-name): Improve commentary. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/easy-mmode.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5c345d9c0c..f7255a505aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2005-05-08 Eli Zaretskii + * emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): Improve + commentary. + * simple.el (next-error-overlay-arrow-position): Revert the change made on 2005-04-30. 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 -- 2.39.2