From 9a3f3bf4394f3c47d1b852b10e3952375debaad8 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Sun, 10 Jan 1999 06:17:49 +0000 Subject: [PATCH] (custom-save-delete): First scan the custom-file. Thus exit with an error in case the custom-file contains a non-closed open parenthesis. --- lisp/cus-edit.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 61bc9629aed..5272f8a7a87 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3100,6 +3100,7 @@ Leave point at the location of the call, or after the last expression." (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. -- 2.11.4.GIT