/[emacs]/emacs/lisp/emacs-lisp/easy-mmode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/easy-mmode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by eliz, Sat May 7 15:05:00 2005 UTC revision 1.61 by eliz, Sun May 8 19:38:06 2005 UTC
# Line 61  Line 61 
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

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26