Function: widget-default-delete

widget-default-delete is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-default-delete WIDGET)

Documentation

Remove widget from the buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-default-delete (widget)
  "Remove widget from the buffer."
  (let ((from (widget-get widget :from))
	(to (widget-get widget :to))
	(inactive-overlay (widget-get widget :inactive))
	(button-overlay (widget-get widget :button-overlay))
	(sample-overlay (widget-get widget :sample-overlay))
	(doc-overlay (widget-get widget :doc-overlay)))
    (widget--allow-insertion
     (widget-apply widget :value-delete)
     (widget-children-value-delete widget)
     (when inactive-overlay
       (delete-overlay inactive-overlay))
     (when button-overlay
       (delete-overlay button-overlay))
     (when sample-overlay
       (delete-overlay sample-overlay))
     (when doc-overlay
       (delete-overlay doc-overlay))
     (when (< from to)
       ;; Kludge: this doesn't need to be true for empty formats.
       (delete-region from to))
     (set-marker from nil)
     (set-marker to nil)))
  (widget-clear-undo))