From 45812e5866d527f7bd1a0d4629473e46c68d8643 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 11 Aug 1998 03:19:08 +0000 Subject: [PATCH] (write-region-as-raw-text-CRLF): Fix regexp to canonicalize line break code. --- emu-latin1.el | 2 +- emu-nemacs.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/emu-latin1.el b/emu-latin1.el index eb03753..45bc9a6 100644 --- a/emu-latin1.el +++ b/emu-latin1.el @@ -193,7 +193,7 @@ find-file-hooks, etc. (with-temp-buffer (insert-buffer-substring the-buf start end) (goto-char (point-min)) - (while (re-search-forward "\\([^\r]\\)\n" nil t) + (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t) (replace-match "\\1\r\n") ) (write-region (point-min)(point-max) filename append visit lockname) diff --git a/emu-nemacs.el b/emu-nemacs.el index b06466f..1c53e14 100644 --- a/emu-nemacs.el +++ b/emu-nemacs.el @@ -254,7 +254,7 @@ find-file-hooks, etc. (with-temp-buffer (insert-buffer-substring the-buf start end) (goto-char (point-min)) - (while (re-search-forward "\\([^\r]\\)\n" nil t) + (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t) (replace-match "\\1\r\n") ) (let (kanji-flag) -- 1.7.10.4