Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 85ec50267440
children 9ad43877534d
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
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.9940 7 ;; Version: 1.9951
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 :match-alternatives :documentation-indent 47 (define-widget-keywords :doc-overlay :sample-overlay
48 :match-alternatives :documentation-indent
48 :complete-function :complete :button-overlay 49 :complete-function :complete :button-overlay
49 :field-overlay 50 :field-overlay
50 :documentation-shown :button-prefix 51 :documentation-shown :button-prefix
51 :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive 52 :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive
52 :prompt-internal :prompt-history :prompt-match 53 :prompt-internal :prompt-history :prompt-match