summaryrefslogtreecommitdiff
path: root/lisp/cus-edit.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1999-01-06 08:40:50 +0000
committerRichard M. Stallman <rms@gnu.org>1999-01-06 08:40:50 +0000
commitd089be69dc69f581792c3d31d3cb10a3c71e6f13 (patch)
tree242415867be6bcc9e60180cd06704c7bd8e006ba /lisp/cus-edit.el
parentb5972d799ec150dffdb29036422204d6980f2040 (diff)
downloademacs-d089be69dc69f581792c3d31d3cb10a3c71e6f13.tar.gz
(custom-save-delete): Don't delete whitespace
and comments before the sexp that is replaced.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r--lisp/cus-edit.el2
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))