Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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.50 7 ;; Version: 1.59
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.
25 (while keywords 25 (while keywords
26 (or (boundp (car keywords)) 26 (or (boundp (car keywords))
27 (set (car keywords) (car keywords))) 27 (set (car keywords) (car keywords)))
28 (setq keywords (cdr keywords))))))) 28 (setq keywords (cdr keywords)))))))
29 29
30 (define-widget-keywords :tag-glyph :off-glyph :on-glyph :valid-regexp 30 (define-widget-keywords :sibling-args :delete-button-args
31 :insert-button-args :append-button-args :button-args
32 :tag-glyph :off-glyph :on-glyph :valid-regexp
31 :secret :sample-face :sample-face-get :case-fold :widget-doc 33 :secret :sample-face :sample-face-get :case-fold :widget-doc
32 :create :convert-widget :format :value-create :offset :extra-offset 34 :create :convert-widget :format :value-create :offset :extra-offset
33 :tag :doc :from :to :args :value :value-from :value-to :action 35 :tag :doc :from :to :args :value :value-from :value-to :action
34 :value-set :value-delete :match :parent :delete :menu-tag-get 36 :value-set :value-delete :match :parent :delete :menu-tag-get
35 :value-get :choice :void :menu-tag :on :off :on-type :off-type 37 :value-get :choice :void :menu-tag :on :off :on-type :off-type