# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 938815470 0
# Node ID f54121af02c8f5cb6c648a108c74ab4c4339ae15
# Parent  3c430bda7857f36e16d968aa5e9152c51901752f
(custom-comment-create): Fill :from and :to slots

diff -r 3c430bda7857 -r f54121af02c8 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Fri Oct 01 17:16:48 1999 +0000
+++ b/lisp/cus-edit.el	Fri Oct 01 22:04:30 1999 +0000
@@ -1955,9 +1955,13 @@
 
 (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))