Mercurial > emacs

comparison lisp/wid-browse.el @ 18090:2983683a278b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)))