Mercurial > emacs
diff lisp/wid-browse.el @ 18090:2983683a278b
Synched with 1.9905
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Sun, 01 Jun 1997 18:03:25 +0000 |
| parents | 0df9495348e7 |
| children | 909a0f9169b8 |
line wrap: on
line diff
--- a/lisp/wid-browse.el Sun Jun 01 11:58:17 1997 +0000 +++ b/lisp/wid-browse.el Sun Jun 01 18:03:25 1997 +0000 @@ -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 @@ (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.")