Function: custom-comment-create

custom-comment-create is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-comment-create WIDGET)

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-comment-create (widget)
  (let* ((null-comment (equal "" (widget-value widget))))
    (if (or (widget-get (widget-get widget :parent) :comment-shown)
	    (not null-comment))
        (progn
          (widget-default-create widget)
          (widget-put (widget-get widget :parent) :comment-shown t))
      ;; `widget-default-delete' expects markers in these slots --
      ;; maybe it shouldn't.
      (widget-put widget :from (point-marker))
      (widget-put widget :to (point-marker)))))