* cus-edit.el (custom-group-value-create): Add extra newline before end line (Bug...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db5bc12462670e14b84f706c03fa2a3d2fa352fb..b4e04ab7f394539b3ce6cabb3413c0b977e36718 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,11 @@
 
        * vc/add-log.el (add-log-file-name): Don't get confused by symlinks.
 
+2010-08-21  Chong Yidong  <cyd@stupidchicken.com>
+
+       * cus-edit.el (custom-group-value-create): Add extra newline
+       before end line (Bug#6876).
+
 2010-08-21  Chong Yidong  <cyd@stupidchicken.com>
 
        * mouse.el (mouse-save-then-kill): Don't save region to kill ring

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9fa817bd10247247ac4fceebf3ce0adddb7aadad..e4cb29b50f2a1e9925323cfab7a38fc9d38152e5 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4097,8 +4097,8 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
             (custom-group-state-update widget)
             (progress-reporter-done reporter))
           ;; End line
-          (let ((p (point)))
-            (insert "\n")
+          (let ((p (1+ (point))))
+            (insert "\n\n")
             (put-text-property p (1+ p) 'face '(:underline t))
             (overlay-put (make-overlay p (1+ p))
                          'before-string