diff options
| author | Per Abrahamsen <abraham@dina.kvl.dk> | 1997-06-01 18:03:25 +0000 |
|---|---|---|
| committer | Per Abrahamsen <abraham@dina.kvl.dk> | 1997-06-01 18:03:25 +0000 |
| commit | 0a3a0b562f0dcf6499fa9f7a7d81ee843f287157 (patch) | |
| tree | 153b74840e7a647d8976e201216edc7b6a7cdf3a /lisp/wid-browse.el | |
| parent | 9097aeb79053a5b75507fb20555eb94d023d6d1e (diff) | |
| download | emacs-0a3a0b562f0dcf6499fa9f7a7d81ee843f287157.tar.gz | |
Synched with 1.9905
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.") |