Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 538048ae2ab8
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
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.97 7 ;; Version: 1.98
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
42 (while keywords 42 (while keywords
43 (or (boundp (car keywords)) 43 (or (boundp (car keywords))
44 (set (car keywords) (car keywords))) 44 (set (car keywords) (car keywords)))
45 (setq keywords (cdr keywords))))))) 45 (setq keywords (cdr keywords)))))))
46 46
47 (define-widget-keywords :mouse-down-action :glyph-up :glyph-down 47 (define-widget-keywords :button-prefix :button-suffix
48 :glyph-inactive 48 :mouse-down-action :glyph-up :glyph-down :glyph-inactive
49 :prompt-internal :prompt-history :prompt-match 49 :prompt-internal :prompt-history :prompt-match
50 :prompt-value :text-format :deactivate :active 50 :prompt-value :deactivate :active
51 :inactive :activate :sibling-args :delete-button-args 51 :inactive :activate :sibling-args :delete-button-args
52 :insert-button-args :append-button-args :button-args 52 :insert-button-args :append-button-args :button-args
53 :tag-glyph :off-glyph :on-glyph :valid-regexp 53 :tag-glyph :off-glyph :on-glyph :valid-regexp
54 :secret :sample-face :sample-face-get :case-fold :widget-doc 54 :secret :sample-face :sample-face-get :case-fold :widget-doc
55 :create :convert-widget :format :value-create :offset :extra-offset 55 :create :convert-widget :format :value-create :offset :extra-offset