Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make widget-browse-at always detect an editable-field

Browse source 
* lisp/wid-browse.el (widget-browse-at): Also look for the real-field
property when detecting a field (bug#37199).
This commit is contained in:
Mauro Aranda 2019-09-15 15:21:08 +02:00 committed by Lars Ingebrigtsen
parent 12b1cce925
commit 24e0546bc1
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/wid-browse.el
View file

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