Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 8ff55ebd4be9
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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