diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2019-09-15 15:21:08 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-15 15:21:08 +0200 |
| commit | 24e0546bc1daa407843427e2e2ac59100c9e62e1 (patch) | |
| tree | 1ab77c1851b54aa2e3a4dcf4f0fb16f57a4272fe /lisp/wid-browse.el | |
| parent | 12b1cce925bb56c699ff9160642b8598f6fb9d9b (diff) | |
| download | emacs-24e0546bc1daa407843427e2e2ac59100c9e62e1.tar.gz | |
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).
Diffstat (limited to 'lisp/wid-browse.el')
| -rw-r--r-- | lisp/wid-browse.el | 6 |
1 files changed, 5 insertions, 1 deletions
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.") |