Mercurial > hg > xemacs-beta

comparison lisp/custom/wid-browse.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 6b37e6ddd302
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
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.98 7 ;; Version: 1.9907
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)))