/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.120 by fx, Thu Dec 12 20:27:43 2002 UTC revision 2.121 by rms, Sat Jan 25 19:44:24 2003 UTC
# Line 2073  list that represents a doc string refere Line 2073  list that represents a doc string refere
2073    (if (memq 'free-vars byte-compile-warnings)    (if (memq 'free-vars byte-compile-warnings)
2074        (setq byte-compile-bound-variables        (setq byte-compile-bound-variables
2075              (cons (nth 1 (nth 1 form)) byte-compile-bound-variables)))              (cons (nth 1 (nth 1 form)) byte-compile-bound-variables)))
2076      (let ((tail (nthcdr 4 form)))
2077        (while tail
2078          ;; If there are any (function (lambda ...)) expressions, compile
2079          ;; those functions.
2080          (if (and (consp (car tail))
2081                   (eq (car (car tail)) 'function)
2082                   (consp (nth 1 (car tail))))
2083              (setcar tail (byte-compile-lambda (nth 1 (car tail))))
2084            ;; Likewise for a bare lambda.
2085            (if (and (consp (car tail))
2086                     (eq (car (car tail)) 'lambda))
2087                (setcar tail (byte-compile-lambda (car tail)))))
2088          (setq tail (cdr tail))))
2089    form)    form)
2090    
2091  (put 'require 'byte-hunk-handler 'byte-compile-file-form-eval-boundary)  (put 'require 'byte-hunk-handler 'byte-compile-file-form-eval-boundary)

Legend:
Removed from v.2.120  
changed lines
  Added in v.2.121

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26