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

and comments before the sexp that is replaced.

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 7640f471d25..61bc9629aed 100644
--- 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))