Mercurial > emacs

diff lisp/cus-edit.el @ 24030:38e309abdbc6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 8c46e3a0623e
children 3cb266497eb3
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.