From 48e588aaea2df7b434728846cc5fa44444735706 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 11 Aug 1998 02:56:40 +0000 Subject: [PATCH] (write-region-as-raw-text-CRLF): Use `write-region-as-binary' to specify `lockname' in MULE 2.3 based on 19.34; modify regexp to canonicalize line break code. --- emu-mule.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/emu-mule.el b/emu-mule.el index 6be3828..cbfa40c 100644 --- a/emu-mule.el +++ b/emu-mule.el @@ -217,12 +217,12 @@ 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 ((file-coding-system *noconv*)) - (write-region (point-min)(point-max) filename append visit) - )))) + (write-region-as-binary (point-min)(point-max) + filename append visit lockname) + ))) ;;; @ MIME charset -- 1.7.10.4