Mercurial > hg > xemacs-beta
diff lisp/custom/widget.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:50:29 +0200 |
parents | 859a2309aef8 |
children | 4103f0995bd7 |
line wrap: on
line diff
--- a/lisp/custom/widget.el Mon Aug 13 08:50:06 2007 +0200 +++ b/lisp/custom/widget.el Mon Aug 13 08:50:29 2007 +0200 @@ -1,10 +1,10 @@ ;;; widget.el --- a library of user interface components. ;; -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: help, extensions, faces, hypermedia -;; Version: 1.30 +;; Version: 1.40 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ ;;; Commentary: @@ -27,7 +27,7 @@ (set (car keywords) (car keywords))) (setq keywords (cdr keywords))))))) -(define-widget-keywords :valid-regexp +(define-widget-keywords :tag-glyph :off-glyph :on-glyph :valid-regexp :secret :sample-face :sample-face-get :case-fold :widget-doc :create :convert-widget :format :value-create :offset :extra-offset :tag :doc :from :to :args :value :value-from :value-to :action @@ -44,6 +44,8 @@ ;; These autoloads should be deleted when the file is added to Emacs. (autoload 'widget-create "widget-edit") (autoload 'widget-insert "widget-edit") +(autoload 'widget-browse "widget-browse" nil t) +(autoload 'widget-browse-at "widget-browse" nil t) ;;;###autoload (defun define-widget (name class doc &rest args)