Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 28422:561ff5634d32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-file-form-autoload): Disable new code.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 30 Mar 2000 11:37:05 +0000
parents 843e552813e3
children a7b3ff772283
comparison
equal deleted inserted replaced
28421:a8dd4622faa4 28422:561ff5634d32
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: lisp 9 ;; Keywords: lisp
10 10
11 ;;; This version incorporates changes up to version 2.10 of the 11 ;;; This version incorporates changes up to version 2.10 of the
12 ;;; Zawinski-Furuseth compiler. 12 ;;; Zawinski-Furuseth compiler.
13 (defconst byte-compile-version "$Revision: 2.66 $") 13 (defconst byte-compile-version "$Revision: 1.1 $")
14 14
15 ;; This file is part of GNU Emacs. 15 ;; This file is part of GNU Emacs.
16 16
17 ;; GNU Emacs is free software; you can redistribute it and/or modify 17 ;; GNU Emacs is free software; you can redistribute it and/or modify
18 ;; it under the terms of the GNU General Public License as published by 18 ;; it under the terms of the GNU General Public License as published by
1805 (while (if (setq form (cdr form)) (byte-compile-constp (car form)))) 1805 (while (if (setq form (cdr form)) (byte-compile-constp (car form))))
1806 (null form)) ;Constants only 1806 (null form)) ;Constants only
1807 (eval (nth 5 form)) ;Macro 1807 (eval (nth 5 form)) ;Macro
1808 (eval form)) ;Define the autoload. 1808 (eval form)) ;Define the autoload.
1809 ;; Avoid undefined function warnings for the autoload. 1809 ;; Avoid undefined function warnings for the autoload.
1810 (if (and (consp (nth 1 form)) 1810 (if (and nil (consp (nth 1 form))
1811 (eq (car (nth 1 form)) 'quote) 1811 (eq (car (nth 1 form)) 'quote)
1812 (consp (cdr (nth 1 form))) 1812 (consp (cdr (nth 1 form)))
1813 (symbolp (nth 1 (nth 1 form)))) 1813 (symbolp (nth 1 (nth 1 form))))
1814 (add-to-list 'byte-compile-function-environment 1814 (add-to-list 'byte-compile-function-environment
1815 (cons (nth 1 (nth 1 form)) 1815 (cons (nth 1 (nth 1 form))