# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1282402003 14400
# Node ID f5eee071d705e0645c95779d3ea84ba790583591
# Parent  88b82e3838f6a3d811fb5f3467732b16655cbe73
* cus-edit.el (custom-group-value-create): Add extra newline before end line (Bug#6876).

diff -r 88b82e3838f6 -r f5eee071d705 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 21 16:09:46 2010 +0200
+++ b/lisp/ChangeLog	Sat Aug 21 10:46:43 2010 -0400
@@ -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 -r 88b82e3838f6 -r f5eee071d705 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sat Aug 21 16:09:46 2010 +0200
+++ b/lisp/cus-edit.el	Sat Aug 21 10:46:43 2010 -0400
@@ -4097,8 +4097,8 @@
 	     (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