diff options
author | Markus Rost <[email protected]> | 1999-01-10 06:17:49 +0000 |
---|---|---|
committer | Markus Rost <[email protected]> | 1999-01-10 06:17:49 +0000 |
commit | 9a3f3bf4394f3c47d1b852b10e3952375debaad8 (patch) | |
tree | 967574aabcb9b6780729a49fc1fa55936e5a8ee9 /lisp | |
parent | ff0315147b9b82f02dc7154016c9f91038b6d2c8 (diff) |
(custom-save-delete): First scan the custom-file. Thus exit with an
error in case the custom-file contains a non-closed open parenthesis.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/cus-edit.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 61bc9629ae..5272f8a7a8 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. |