(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)