projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
982e477
)
* WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock
author
yoichi
<yoichi>
Tue, 4 Feb 2003 19:09:23 +0000
(19:09 +0000)
committer
yoichi
<yoichi>
Tue, 4 Feb 2003 19:09:23 +0000
(19:09 +0000)
confusion.
ChangeLog
patch
|
blob
|
history
WL-MK
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
4135398
..
0dd38cd
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,8
@@
+2003-02-05 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
+
+ * WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock
+ confusion.
+
2003-01-17 TAKAHASHI Kaoru <kaoru@kaisei.org>
* WL-MK (test-wl): Added `make-wl-news'.
2003-01-17 TAKAHASHI Kaoru <kaoru@kaisei.org>
* WL-MK (test-wl): Added `make-wl-news'.
diff --git
a/WL-MK
b/WL-MK
index
a3cd3a0
..
74303dc
100644
(file)
--- a/
WL-MK
+++ b/
WL-MK
@@
-486,7
+486,10
@@
(if wl-news-lang
(progn
(insert "(defconst wl-news-news-alist\n '")
(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)))
(insert ")\n"))
(insert "(defconst wl-news-news-alist nil)\n\n"))
(let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))