From 24e0546bc1daa407843427e2e2ac59100c9e62e1 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Sun, 15 Sep 2019 15:21:08 +0200 Subject: [PATCH] Make widget-browse-at always detect an editable-field * lisp/wid-browse.el (widget-browse-at): Also look for the real-field property when detecting a field (bug#37199). --- lisp/wid-browse.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el index dbc41009c77..3124a9c01e5 100644 --- a/lisp/wid-browse.el +++ b/lisp/wid-browse.el @@ -89,7 +89,11 @@ if that value is non-nil." (defun widget-browse-at (pos) "Browse the widget under point." (interactive "d") - (let* ((field (get-char-property pos 'field)) + (let* ((field (or + ;; See comments in `widget-specify-field' to know why we + ;; need this. + (get-char-property pos 'real-field) + (get-char-property pos 'field))) (button (get-char-property pos 'button)) (doc (get-char-property pos 'widget-doc)) (text (cond (field "This is an editable text area.") -- 2.39.5