From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Jan 1999 08:40:50 +0000 (+0000)
Subject: (custom-save-delete): Don't delete whitespace
X-Git-Tag: emacs-20.4~950
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d089be69dc69f581792c3d31d3cb10a3c71e6f13;p=emacs.git

(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 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))