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).

diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el
index dbc41009c77a28d12d7c5b58b884cc8ec7bf2ca8..3124a9c01e5815d44d698f8572c10e21ae433d22 100644 (file)
--- 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.")