Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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.40 7 ;; Version: 1.44
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.
40 :button-face-get :button-face :value-face :keymap :entry-from 40 :button-face-get :button-face :value-face :keymap :entry-from
41 :entry-to :help-echo :documentation-property :hide-front-space 41 :entry-to :help-echo :documentation-property :hide-front-space
42 :hide-rear-space) 42 :hide-rear-space)
43 43
44 ;; These autoloads should be deleted when the file is added to Emacs. 44 ;; These autoloads should be deleted when the file is added to Emacs.
45 (autoload 'widget-create "widget-edit") 45 (unless (fboundp 'load-gc)
46 (autoload 'widget-insert "widget-edit") 46 (autoload 'widget-create "widget-edit")
47 (autoload 'widget-browse "widget-browse" nil t) 47 (autoload 'widget-insert "widget-edit")
48 (autoload 'widget-browse-at "widget-browse" nil t) 48 (autoload 'widget-browse "widget-browse" nil t)
49 (autoload 'widget-browse-at "widget-browse" nil t))
49 50
50 ;;;###autoload
51 (defun define-widget (name class doc &rest args) 51 (defun define-widget (name class doc &rest args)
52 "Define a new widget type named NAME from CLASS. 52 "Define a new widget type named NAME from CLASS.
53 53
54 NAME and CLASS should both be symbols, CLASS should be one of the 54 NAME and CLASS should both be symbols, CLASS should be one of the
55 existing widget types, or nil to create the widget from scratch. 55 existing widget types, or nil to create the widget from scratch.