Gentoo Archives: gentoo-commits

From:	"Ulrich Mueller (ulm)" <ulm@g.o>
To:	gentoo-commits@l.g.o
Subject:	[gentoo-commits] gentoo-x86 commit in app-emacs/mmm-mode/files: mmm-mode-0.4.8-format-mode-line.patch
Date:	Tue, 20 Apr 2010 16:12:27
Message-Id:	`20100420161223.F01532C04C@corvid.gentoo.org`

1	ulm 10/04/20 16:12:23
2
3	Added: mmm-mode-0.4.8-format-mode-line.patch
4	Log:
5	Compatibility fix for mode line format of Emacs 23, bug 311259.
6	(Portage version: 2.2_rc67/cvs/Linux i686)
7
8	Revision Changes Path
9	1.1 app-emacs/mmm-mode/files/mmm-mode-0.4.8-format-mode-line.patch
10
11	file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mmm-mode/files/mmm-mode-0.4.8-format-mode-line.patch?rev=1.1&view=markup
12	plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mmm-mode/files/mmm-mode-0.4.8-format-mode-line.patch?rev=1.1&content-type=text/plain
13
14	Index: mmm-mode-0.4.8-format-mode-line.patch
15	===================================================================
16	--- mmm-mode-0.4.8-orig/mmm-utils.el
17	+++ mmm-mode-0.4.8/mmm-utils.el
18	@@ -78,7 +78,11 @@
19	(save-match-data
20	(dolist (pair arg-pairs)
21	(while (string-match (car pair) string)
22	- (setq string (replace-match (cdr pair) t t string))))))
23	+ (setq string (replace-match
24	+ (if (fboundp 'format-mode-line)
25	+ (format-mode-line (cdr pair))
26	+ (cdr pair))
27	+ t t string))))))
28	string)
29
30	(defun mmm-format-matches (string &optional on-string)