diff options
Diffstat (limited to 'lisp/wid-browse.el')
-rw-r--r-- | lisp/wid-browse.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el index f8e309a1a3b..09a5a6617bd 100644 --- a/lisp/wid-browse.el +++ b/lisp/wid-browse.el @@ -4,7 +4,7 @@ ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: extensions -;; Version: 1.97 +;; Version: 1.9905 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ ;; This file is part of GNU Emacs. @@ -92,9 +92,9 @@ if that value is non-nil." (defun widget-browse-at (pos) "Browse the widget under point." (interactive "d") - (let* ((field (get-text-property pos 'field)) - (button (get-text-property pos 'button)) - (doc (get-text-property pos 'widget-doc)) + (let* ((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.") (button "This is an active area.") (doc "This is documentation text.") |