Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
18089:bb0e09c8ada3 | 18090:2983683a278b |
---|---|
2 ;; | 2 ;; |
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1997 Free Software Foundation, Inc. |
4 ;; | 4 ;; |
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
6 ;; Keywords: extensions | 6 ;; Keywords: extensions |
7 ;; Version: 1.97 | 7 ;; Version: 1.9905 |
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ | 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
90 | 90 |
91 ;;;###autoload | 91 ;;;###autoload |
92 (defun widget-browse-at (pos) | 92 (defun widget-browse-at (pos) |
93 "Browse the widget under point." | 93 "Browse the widget under point." |
94 (interactive "d") | 94 (interactive "d") |
95 (let* ((field (get-text-property pos 'field)) | 95 (let* ((field (get-char-property pos 'field)) |
96 (button (get-text-property pos 'button)) | 96 (button (get-char-property pos 'button)) |
97 (doc (get-text-property pos 'widget-doc)) | 97 (doc (get-char-property pos 'widget-doc)) |
98 (text (cond (field "This is an editable text area.") | 98 (text (cond (field "This is an editable text area.") |
99 (button "This is an active area.") | 99 (button "This is an active area.") |
100 (doc "This is documentation text.") | 100 (doc "This is documentation text.") |
101 (t "This is unidentified text."))) | 101 (t "This is unidentified text."))) |
102 (widget (or field button doc))) | 102 (widget (or field button doc))) |