mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(define-widget-keywords): Don't use backquote.

Browse source
This commit is contained in:
Richard M. Stallman 1998-04-27 19:47:31 +00:00
parent 7990d02a2d
commit dea85c7a71
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/widget.el
View file

@ -36,13 +36,14 @@
(eval-when-compile (require 'cl))
(defmacro define-widget-keywords (&rest keys)
(`
(eval-and-compile
(let ((keywords (quote (, keys))))
(while keywords
(or (boundp (car keywords))
(set (car keywords) (car keywords)))
(setq keywords (cdr keywords)))))))
;; Don't use backquote, since that makes trouble trying to
;; re-bootstrap from just the .el files.
(list 'eval-and-compile
(list 'let (list (list 'keywords (list 'quote keys)))
(list 'while 'keywords
(list 'or (list 'boundp (list 'car 'keywords))
(list 'set (list 'car 'keywords) (list 'car 'keywords)))
(list 'setq 'keywords (list 'cdr 'keywords))))))
(define-widget-keywords :documentation-indent
:complete-function :complete :button-overlay