[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el

[Miles Bader]

Index: emacs/lisp/emacs-lisp/byte-opt.el
diff -c emacs/lisp/emacs-lisp/byte-opt.el:1.72 
emacs/lisp/emacs-lisp/byte-opt.el:1.73
*** emacs/lisp/emacs-lisp/byte-opt.el:1.72      Tue Mar 25 11:34:00 2003
--- emacs/lisp/emacs-lisp/byte-opt.el   Tue Mar 25 11:48:43 2003
***************
*** 1174,1180 ****
    (let ((var (car-safe (cdr-safe form))))
      (cond
       ((and (eq (car-safe var) 'quote) (consp (cdr var)))
!       (list* '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)))
--- 1174,1180 ----
    (let ((var (car-safe (cdr-safe form))))
      (cond
       ((and (eq (car-safe var) 'quote) (consp (cdr var)))
!       `(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)))