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

[Kenichi Handa]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.120 
emacs/lisp/emacs-lisp/bytecomp.el:2.121
*** emacs/lisp/emacs-lisp/bytecomp.el:2.120     Thu Dec 12 15:27:43 2002
--- emacs/lisp/emacs-lisp/bytecomp.el   Sat Jan 25 14:44:24 2003
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.120 $")
  
  ;; 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.121 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 2073,2078 ****
--- 2073,2091 ----
    (if (memq 'free-vars byte-compile-warnings)
        (setq byte-compile-bound-variables
            (cons (nth 1 (nth 1 form)) byte-compile-bound-variables)))
+   (let ((tail (nthcdr 4 form)))
+     (while tail
+       ;; If there are any (function (lambda ...)) expressions, compile
+       ;; those functions.
+       (if (and (consp (car tail))
+              (eq (car (car tail)) 'function)
+              (consp (nth 1 (car tail))))
+         (setcar tail (byte-compile-lambda (nth 1 (car tail))))
+       ;; Likewise for a bare lambda.
+       (if (and (consp (car tail))
+                (eq (car (car tail)) 'lambda))
+           (setcar tail (byte-compile-lambda (car tail)))))
+       (setq tail (cdr tail))))
    form)
  
  (put 'require 'byte-hunk-handler 'byte-compile-file-form-eval-boundary)