Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
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.46 7 ;; Version: 1.50
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.
13 ;; 13 ;;
14 ;; This file only contain the code needed to define new widget types. 14 ;; This file only contain the code needed to define new widget types.
15 ;; Everything else is autoloaded from `widget-edit.el'. 15 ;; Everything else is autoloaded from `wid-edit.el'.
16 16
17 ;;; Code: 17 ;;; Code:
18 18
19 (eval-when-compile (require 'cl)) 19 (eval-when-compile (require 'cl))
20 20
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 (unless (fboundp 'load-gc) 45 (unless (fboundp 'load-gc)
46 (autoload 'widget-create "widget-edit") 46 (autoload 'widget-create "wid-edit")
47 (autoload 'widget-insert "widget-edit") 47 (autoload 'widget-insert "wid-edit")
48 (autoload 'widget-browse "widget-browse" nil t) 48 (autoload 'widget-browse "wid-browse" nil t)
49 (autoload 'widget-browse-at "widget-browse" nil t)) 49 (autoload 'widget-browse-at "wid-browse" nil t))
50 50
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