Mercurial > hg > xemacs-beta

comparison lisp/widget.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 0e522484dd2a
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
40 ;; compatibility. 40 ;; compatibility.
41 ;; (defalias 'define-widget-keywords 'ignore) 41 ;; (defalias 'define-widget-keywords 'ignore)
42 42
43 (defmacro define-widget-keywords (&rest keys) 43 (defmacro define-widget-keywords (&rest keys)
44 "This doesn't do anything in Emacs 20 or XEmacs." 44 "This doesn't do anything in Emacs 20 or XEmacs."
45 (` 45 `(eval-and-compile
46 (eval-and-compile 46 (let ((keywords (quote ,keys)))
47 (let ((keywords (quote (, keys)))) 47 (while keywords
48 (while keywords 48 (or (boundp (car keywords))
49 (or (boundp (car keywords)) 49 (set (car keywords) (car keywords)))
50 (set (car keywords) (car keywords))) 50 (setq keywords (cdr keywords))))))
51 (setq keywords (cdr keywords)))))))
52 51
53 (defun define-widget (name class doc &rest args) 52 (defun define-widget (name class doc &rest args)
54 "Define a new widget type named NAME from CLASS. 53 "Define a new widget type named NAME from CLASS.
55 54
56 NAME and CLASS should both be symbols, CLASS should be one of the 55 NAME and CLASS should both be symbols, CLASS should be one of the