Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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.65 7 ;; Version: 1.68
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 :sibling-args :delete-button-args 30 (define-widget-keywords :deactivate :active :inactive :activate
31 :sibling-args :delete-button-args
31 :insert-button-args :append-button-args :button-args 32 :insert-button-args :append-button-args :button-args
32 :tag-glyph :off-glyph :on-glyph :valid-regexp 33 :tag-glyph :off-glyph :on-glyph :valid-regexp
33 :secret :sample-face :sample-face-get :case-fold :widget-doc 34 :secret :sample-face :sample-face-get :case-fold :widget-doc
34 :create :convert-widget :format :value-create :offset :extra-offset 35 :create :convert-widget :format :value-create :offset :extra-offset
35 :tag :doc :from :to :args :value :value-from :value-to :action 36 :tag :doc :from :to :args :value :value-from :value-to :action