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

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.127 
emacs/lisp/emacs-lisp/bytecomp.el:2.128
*** emacs/lisp/emacs-lisp/bytecomp.el:2.127     Mon Apr 21 11:48:28 2003
--- emacs/lisp/emacs-lisp/bytecomp.el   Wed Apr 23 21:51:54 2003
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.127 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.128 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 3538,3548 ****
        (byte-compile-set-symbol-position (car form))
      (byte-compile-set-symbol-position 'defun)
      (error "defun name must be a symbol, not %s" (car form)))
!   (byte-compile-two-args ; Use this to avoid byte-compile-fset's warning.
!    (list 'fset (list 'quote (nth 1 form))
!        (byte-compile-byte-code-maker
!         (byte-compile-lambda (cons 'lambda (cdr (cdr form)))))))
!   (byte-compile-discard)
    (byte-compile-constant (nth 1 form)))
  
  (defun byte-compile-defmacro (form)
--- 3538,3557 ----
        (byte-compile-set-symbol-position (car form))
      (byte-compile-set-symbol-position 'defun)
      (error "defun name must be a symbol, not %s" (car form)))
!   (if (byte-compile-version-cond byte-compile-compatibility)
!       (progn
!       (byte-compile-two-args ; Use this to avoid byte-compile-fset's warning.
!        (list 'fset
!              (list 'quote (nth 1 form))
!              (byte-compile-byte-code-maker
!               (byte-compile-lambda (cons 'lambda (cdr (cdr form)))))))
!       (byte-compile-discard))
!     (byte-compile-form
!      (list 'defalias
!          (list 'quote (nth 1 form))
!          (byte-compile-byte-code-maker
!           (byte-compile-lambda (cons 'lambda (cdr (cdr form))))))
!      t))
    (byte-compile-constant (nth 1 form)))
  
  (defun byte-compile-defmacro (form)