From 04a2289bc5074270888897076fd1299d44f5fd83 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 13 Nov 2001 07:44:46 +0000 Subject: [PATCH] (byte-compile-insert-header): Fixed. --- lisp/bytecomp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4