Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents cca96a509cfe
children 34a5b81f86ba
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
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.74 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.
48 (unless (fboundp 'load-gc) 48 (unless (fboundp 'load-gc)
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-at "wid-browse" nil t)) 54 (autoload 'widget-browse-at "wid-browse" nil t))
54 55
55 (defun define-widget (name class doc &rest args) 56 (defun define-widget (name class doc &rest args)
56 "Define a new widget type named NAME from CLASS. 57 "Define a new widget type named NAME from CLASS.
57 58