From 6171a9453950a147396eef409d30d98054ae2d74 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 1 Oct 1999 22:04:30 +0000 Subject: [PATCH] (custom-comment-create): Fill :from and :to slots --- lisp/cus-edit.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ef9abde7892..5f876b66dce 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1955,9 +1955,13 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." (defun custom-comment-create (widget) (let* ((null-comment (equal "" (widget-value widget)))) - (when (or (widget-get (widget-get widget :parent) :comment-shown) - (not null-comment)) - (widget-default-create widget)))) + (if (or (widget-get (widget-get widget :parent) :comment-shown) + (not null-comment)) + (widget-default-create widget) + ;; `widget-default-delete' expects markers in these slots -- + ;; maybe it shouldn't. + (widget-put widget :from (point-marker)) + (widget-put widget :to (point-marker))))) (defun custom-comment-hide (widget) (widget-put (widget-get widget :parent) :comment-shown nil)) -- 2.39.5