diff options
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 376e3e5526f..5dee898991b 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -831,6 +831,13 @@ button end points." (delete-overlay field)) (mapc 'widget-leave-text (widget-get widget :children)))) +(defun widget-text (widget) + "Get the text representation of the widget." + (when-let ((from (widget-get widget :from)) + (to (widget-get widget :to))) + (when (eq (marker-buffer from) (marker-buffer to)) ; is this check necessary? + (buffer-substring-no-properties from to)))) + ;;; Keymap and Commands. ;; This alias exists only so that one can choose in doc-strings (e.g. |