Function: widget-leave-text

widget-leave-text is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-leave-text WIDGET)

Documentation

Remove markers and overlays from WIDGET and its children.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-leave-text (widget)
  "Remove markers and overlays from WIDGET and its children."
  (let ((button (widget-get widget :button-overlay))
	(sample (widget-get widget :sample-overlay))
	(doc (widget-get widget :doc-overlay))
	(field (widget-get widget :field-overlay)))
    (set-marker (widget-get widget :from) nil)
    (set-marker (widget-get widget :to) nil)
    (when button
      (delete-overlay button))
    (when sample
      (delete-overlay sample))
    (when doc
      (delete-overlay doc))
    (when field
      (delete-overlay field))
    (mapc 'widget-leave-text (widget-get widget :children))))