[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el |
Date: |
Sun, 08 May 2005 15:38:08 -0400 |
Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.60
emacs/lisp/emacs-lisp/easy-mmode.el:1.61
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.60 Sat May 7 15:05:00 2005
--- emacs/lisp/emacs-lisp/easy-mmode.el Sun May 8 19:38:06 2005
***************
*** 61,69 ****
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.
(name (concat (replace-regexp-in-string
! ;; "Foo-Bar-Minor" -> "Foo-Bar minor"
"-Minor" " minor"
;; "foo-bar-minor" -> "Foo-Bar-Minor"
(capitalize (replace-regexp-in-string
--- 61,71 ----
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.
(name (concat (replace-regexp-in-string
! ;; 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