From 4cc742168cfa08327ede86ba78c76f687ab32d1f Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 7 Feb 2003 12:20:32 +0000 Subject: [PATCH] WL-MK (make-wl-news): Do not use 4th and 5th arg of replace-regexp. --- WL-MK | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/WL-MK b/WL-MK index 74303dc..d706e76 100644 --- a/WL-MK +++ b/WL-MK @@ -489,7 +489,10 @@ (let ((p (point))) (prin1 (wl-news-parse-news wl-news-lang) (current-buffer)) (save-excursion - (replace-regexp "^(" "\\\\(" nil p (point)))) ; avoid font-lock confusion + (narrow-to-region p (point)) + (goto-char (1+ p)) + (replace-regexp "^(" "\\\\(") ; avoid font-lock confusion + (widen))) (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