[Emacs-diffs] /srv/bzr/emacs/trunk r108767: * lisp/emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name):

[Stefan Monnier]

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