(custom-save-delete): Don't delete whitespace

and comments before the sexp that is replaced.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 7640f47..61bc962 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3102,6 +3102,8 @@ Leave point at the location of the call, or after the last expression."
   (goto-char (point-min))
   (catch 'found
     (while t
+      ;; Skip all whitespace and comments.
+      (while (forward-comment 1))
       (let ((start (point))
            (sexp (condition-case nil
                      (read (current-buffer))