# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 915949069 0
# Node ID 38e309abdbc6aaa009f1b059ee84645f8392fdd6
# Parent  71731a549704ecbb4889ce11afecad0708978d36
(custom-save-delete): First scan the custom-file.  Thus exit with an
error in case the custom-file contains a non-closed open parenthesis.

diff -r 71731a549704 -r 38e309abdbc6 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Fri Jan 08 13:45:06 1999 +0000
+++ b/lisp/cus-edit.el	Sun Jan 10 06:17:49 1999 +0000
@@ -3100,6 +3100,7 @@
   (let ((default-major-mode))
     (set-buffer (find-file-noselect (custom-file))))
   (goto-char (point-min))
+  (save-excursion (forward-sexp (buffer-size)))	; Test for scan errors.
   (catch 'found
     (while t
       ;; Skip all whitespace and comments.