mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(easy-mmode-pretty-mode-name): Improve commentary.

Browse Source
This commit is contained in:
Eli Zaretskii 2005-05-08 19:39:20 +00:00
parent c29d24ea5e
commit 906aee9391
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2005-05-08 Eli Zaretskii <eliz@gnu.org>
* 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.

6
lisp/emacs-lisp/easy-mmode.el
View File

@ -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