Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 9b50b4588a93
children b980b6286996
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 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: help, extensions, faces, hypermedia 6 ;; Keywords: help, extensions, faces, hypermedia
7 ;; Version: 1.84 7 ;; Version: 1.89
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; If you want to use this code, please visit the URL above. 12 ;; If you want to use this code, please visit the URL above.
49 (autoload 'widget-apply "wid-edit") 49 (autoload 'widget-apply "wid-edit")
50 (autoload 'widget-create "wid-edit") 50 (autoload 'widget-create "wid-edit")
51 (autoload 'widget-insert "wid-edit") 51 (autoload 'widget-insert "wid-edit")
52 (autoload 'widget-browse "wid-browse" nil t) 52 (autoload 'widget-browse "wid-browse" nil t)
53 (autoload 'widget-browse-other-window "wid-browse" nil t) 53 (autoload 'widget-browse-other-window "wid-browse" nil t)
54 (autoload 'widget-browse-at "wid-browse" nil t)) 54 (autoload 'widget-browse-at "wid-browse" nil t)
55 (autoload 'widget-minor-mode "wid-browse" nil t))
55 56
56 (defun define-widget (name class doc &rest args) 57 (defun define-widget (name class doc &rest args)
57 "Define a new widget type named NAME from CLASS. 58 "Define a new widget type named NAME from CLASS.
58 59
59 NAME and CLASS should both be symbols, CLASS should be one of the 60 NAME and CLASS should both be symbols, CLASS should be one of the