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

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db5bc124626..b4e04ab7f39 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,11 @@
 
 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
         when extending it.  Before killing on the second click, check if
         the buffer is the correct one.  Doc fix.
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9fa817bd102..e4cb29b50f2 100644
--- 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