easy-mmode-pretty-mode-name, missing regexp-quote

[Johan Bockgård]

Problem:

(define-minor-mode bar "" nil "[OE]" nil)
(documentation-property 'bar 'variable-documentation)
  =>
"Non-nil if Bar m[OE]d[OE] is enabled.
Use the command `bar' to change this variable."


Fix:

--- easy-mmode.el       26 Apr 2005 19:12:23 +0200      1.59
+++ easy-mmode.el       04 May 2005 23:51:11 +0200      
@@ -67,7 +67,7 @@
                       " mode")))
     (if (not (stringp lighter)) name
       (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\-s+\\'" "" 
lighter))
-      (replace-regexp-in-string lighter lighter name t t))))
+      (replace-regexp-in-string (regexp-quote lighter) lighter name t t))))


-- 
Johan Bockgård