Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 34a5b81f86ba
children 538048ae2ab8
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
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.89 7 ;; Version: 1.84
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))
56 55
57 (defun define-widget (name class doc &rest args) 56 (defun define-widget (name class doc &rest args)
58 "Define a new widget type named NAME from CLASS. 57 "Define a new widget type named NAME from CLASS.
59 58
60 NAME and CLASS should both be symbols, CLASS should be one of the 59 NAME and CLASS should both be symbols, CLASS should be one of the