Mercurial > emacs
changeset 24030:38e309abdbc6
(custom-save-delete): First scan the custom-file. Thus exit with an
error in case the custom-file contains a non-closed open parenthesis.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Sun, 10 Jan 1999 06:17:49 +0000 |
| parents | 71731a549704 |
| children | c14fe5d32ce5 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.