From ce2bba5de972adf598f62df5c4d30593e387f789 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 4 Feb 2003 19:09:23 +0000 Subject: [PATCH] * WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock confusion. --- ChangeLog | 5 +++++ WL-MK | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 4135398..0dd38cd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-02-05 Yoichi NAKAYAMA + + * WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock + confusion. + 2003-01-17 TAKAHASHI Kaoru * WL-MK (test-wl): Added `make-wl-news'. diff --git a/WL-MK b/WL-MK index a3cd3a0..74303dc 100644 --- a/WL-MK +++ b/WL-MK @@ -486,7 +486,10 @@ (if wl-news-lang (progn (insert "(defconst wl-news-news-alist\n '") - (prin1 (wl-news-parse-news wl-news-lang) (current-buffer)) + (let ((p (point))) + (prin1 (wl-news-parse-news wl-news-lang) (current-buffer)) + (save-excursion + (replace-regexp "^(" "\\\\(" nil p (point)))) ; avoid font-lock confusion (insert ")\n")) (insert "(defconst wl-news-news-alist nil)\n\n")) (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext))) -- 1.7.10.4