[Emacs-diffs] /srv/bzr/emacs/trunk r101160: * cus-edit.el (custom-group-value-create): Add extra newline before end line (Bug#6876).

[Chong Yidong]

------------------------------------------------------------
revno: 101160
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2010-08-21 10:46:43 -0400
message:
  * cus-edit.el (custom-group-value-create): Add extra newline before end line 
(Bug#6876).
modified:
  lisp/ChangeLog
  lisp/cus-edit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-21 14:09:46 +0000
+++ b/lisp/ChangeLog    2010-08-21 14:46:43 +0000
@@ -4,6 +4,11 @@
 
 2010-08-21  Chong Yidong  <address@hidden>
 
+       * cus-edit.el (custom-group-value-create): Add extra newline
+       before end line (Bug#6876).
+
+2010-08-21  Chong Yidong  <address@hidden>
+
        * 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.

=== modified file 'lisp/cus-edit.el'
--- a/lisp/cus-edit.el  2010-08-12 08:55:20 +0000
+++ b/lisp/cus-edit.el  2010-08-21 14:46:43 +0000
@@ -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