Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 106:8ff55ebd4be9 r20-1b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b5
author cvs
date Mon, 13 Aug 2007 09:17:26 +0200
parents a145efe76779
children 360340f9fd5f
comparison
equal deleted inserted replaced
105:e59cf502fb45 106:8ff55ebd4be9
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