[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 24e0546: Make widget-browse-at always detect an edi
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 24e0546: Make widget-browse-at always detect an editable-field |
Date: |
Sun, 15 Sep 2019 09:21:15 -0400 (EDT) |
branch: master
commit 24e0546bc1daa407843427e2e2ac59100c9e62e1
Author: Mauro Aranda <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 dbc4100..3124a9c 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.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 24e0546: Make widget-browse-at always detect an editable-field,
Lars Ingebrigtsen <=