Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 120:cca96a509cfe r20-1b12

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