diff options
| -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." | |||
| 89 | (defun widget-browse-at (pos) | 89 | (defun widget-browse-at (pos) |
| 90 | "Browse the widget under point." | 90 | "Browse the widget under point." |
| 91 | (interactive "d") | 91 | (interactive "d") |
| 92 | (let* ((field (get-char-property pos 'field)) | 92 | (let* ((field (or |
| 93 | ;; See comments in `widget-specify-field' to know why we | ||
| 94 | ;; need this. | ||
| 95 | (get-char-property pos 'real-field) | ||
| 96 | (get-char-property pos 'field))) | ||
| 93 | (button (get-char-property pos 'button)) | 97 | (button (get-char-property pos 'button)) |
| 94 | (doc (get-char-property pos 'widget-doc)) | 98 | (doc (get-char-property pos 'widget-doc)) |
| 95 | (text (cond (field "This is an editable text area.") | 99 | (text (cond (field "This is an editable text area.") |