[elpa] master c42fcb2 286/433: Compatibility fix for mode line format of Emacs 23

[Dmitry Gutov]

branch: master
commit c42fcb2b46d2d80de3351b7e4f39be85289cde9f
Author: Dmitry Gutov <address@hidden>
Commit: Steve Purcell <address@hidden>

    Compatibility fix for mode line format of Emacs 23
    
    Patch from https://bugs.gentoo.org/311259?id=311259
---
 mmm-utils.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mmm-utils.el b/mmm-utils.el
index 04ef1f4..98abdb8 100644
--- a/mmm-utils.el
+++ b/mmm-utils.el
@@ -78,7 +78,11 @@ substituted for the corresponding REGEXP wherever it 
matches."
     (save-match-data
       (dolist (pair arg-pairs)
         (while (string-match (car pair) string)
-          (setq string (replace-match (cdr pair) t t string))))))
+          (setq string (replace-match
+                        (if (fboundp 'format-mode-line)
+                            (format-mode-line (cdr pair))
+                          (cdr pair))
+                        t t string))))))
   string)
 
 (defun mmm-format-matches (string &optional on-string)