From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 21 Aug 2010 14:46:43 +0000 (-0400)
Subject: * cus-edit.el (custom-group-value-create): Add extra newline before end line (Bug... 
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~240^2~2^2~21
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d64b8a68f94303367f9117360bce8ce812fd1ea0;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db5bc124626..b4e04ab7f39 100644
--- 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 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