[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108767: * lisp/emacs-lisp/easy-mmode
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108767: * lisp/emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): |
Date: |
Wed, 27 Jun 2012 10:05:24 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 108767
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-27 10:05:24 -0400
message:
* lisp/emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name):
Strip "toggle-" if any.
modified:
lisp/ChangeLog
lisp/emacs-lisp/easy-mmode.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-06-27 07:47:56 +0000
+++ b/lisp/ChangeLog 2012-06-27 14:05:24 +0000
@@ -1,3 +1,8 @@
+2012-06-27 Stefan Monnier <address@hidden>
+
+ * emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name):
+ Strip "toggle-" if any.
+
2012-06-27 Glenn Morris <address@hidden>
* info.el (Info-default-directory-list): Move here from paths.el.
=== modified file 'lisp/emacs-lisp/easy-mmode.el'
--- a/lisp/emacs-lisp/easy-mmode.el 2012-06-10 13:28:26 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el 2012-06-27 14:05:24 +0000
@@ -65,7 +65,8 @@
;; "foo-bar-minor" -> "Foo-Bar-Minor"
(capitalize (replace-regexp-in-string
;; "foo-bar-minor-mode" -> "foo-bar-minor"
- "-mode\\'" "" (symbol-name mode))))
+ "toggle-\\|-mode\\'" ""
+ (symbol-name mode))))
" mode")))
(if (not (stringp lighter)) name
;; Strip leading and trailing whitespace from LIGHTER.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108767: * lisp/emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name):,
Stefan Monnier <=