From d64b8a68f94303367f9117360bce8ce812fd1ea0 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 21 Aug 2010 10:46:43 -0400 Subject: [PATCH] * cus-edit.el (custom-group-value-create): Add extra newline before end line (Bug#6876). --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 4 ++-- 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 @@ -2,6 +2,11 @@ * vc/add-log.el (add-log-file-name): Don't get confused by symlinks. +2010-08-21 Chong Yidong + + * cus-edit.el (custom-group-value-create): Add extra newline + before end line (Bug#6876). + 2010-08-21 Chong Yidong * 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 -- 2.39.2