diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-25 16:48:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-25 16:48:43 +0000 |
| commit | e64e9e6a7f8328e448f85debe51cf49d14e1fd1e (patch) | |
| tree | 0e6ea0cccdbef0d5f14b2858bad1a01a9071aab3 /lisp/emacs-lisp | |
| parent | 66ff2893073b0741ea2a0ccfc58ae585d36be87a (diff) | |
| download | emacs-e64e9e6a7f8328e448f85debe51cf49d14e1fd1e.tar.gz emacs-e64e9e6a7f8328e448f85debe51cf49d14e1fd1e.tar.bz2 emacs-e64e9e6a7f8328e448f85debe51cf49d14e1fd1e.zip | |
(byte-optimize-set): Avoid CLism.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 7aa34cff6bc..c02e8b02dea 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1174,7 +1174,7 @@ (let ((var (car-safe (cdr-safe form)))) (cond ((and (eq (car-safe var) 'quote) (consp (cdr var))) - (list* 'setq (cadr var) (cddr form))) + `(setq ,(cadr var) ,@(cddr form))) ((and (eq (car-safe var) 'make-local-variable) (eq (car-safe (setq var (car-safe (cdr var)))) 'quote) (consp (cdr var))) |