|
Line
Link Here
|
| 0 |
-- mmm-mode-0.4.8/mmm-utils.el |
0 |
++ mmm-mode-0.4.8-orig/mmm-utils.el |
|
Lines 78-84
Link Here
|
| 78 |
(save-match-data |
78 |
(save-match-data |
| 79 |
(dolist (pair arg-pairs) |
79 |
(dolist (pair arg-pairs) |
| 80 |
(while (string-match (car pair) string) |
80 |
(while (string-match (car pair) string) |
| 81 |
(setq string (replace-match (cdr pair) t t string)))))) |
81 |
(setq string (replace-match |
|
|
82 |
(if (fboundp 'format-mode-line) |
| 83 |
(format-mode-line (cdr pair)) |
| 84 |
(cdr pair)) |
| 85 |
t t string)))))) |
| 82 |
string) |
86 |
string) |
| 83 |
|
87 |
|
| 84 |
(defun mmm-format-matches (string &optional on-string) |
88 |
(defun mmm-format-matches (string &optional on-string) |
