martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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