From: tomo <tomo>
Date: Tue, 13 Nov 2001 07:44:46 +0000 (+0000)
Subject: (byte-compile-insert-header): Fixed.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=04a2289bc5074270888897076fd1299d44f5fd83;p=chise%2Fxemacs-chise.git-

(byte-compile-insert-header): Fixed.
---

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index 03bcb44..2360def 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -1789,7 +1789,8 @@ With argument, insert value in current buffer after the form."
 		(setq ces 'binary)
 	      (goto-char (point-min))
 	      (while (< (point)(point-max))
-		(cond ((eq (char-after) ?\;)
+		(cond ((and (eq (char-after) ?\;)
+			    (not (eq (char-after (1- (point))) ?\\)))
 		       (delete-region (point)(point-at-eol))
 		       (if (eq (char-after) ?\n)
 			   (delete-char 1)