Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 50681:bf8d1b20e95e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 24 Apr 2003 01:52:27 +0000
parents ae1e2c38d746
children f532d7d4d12b
comparison
equal deleted inserted replaced
50680:ae1e2c38d746 50681:bf8d1b20e95e
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.127 $") 13 (defconst byte-compile-version "$Revision: 2.128 $")
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
3544 (list 'fset 3544 (list 'fset
3545 (list 'quote (nth 1 form)) 3545 (list 'quote (nth 1 form))
3546 (byte-compile-byte-code-maker 3546 (byte-compile-byte-code-maker
3547 (byte-compile-lambda (cons 'lambda (cdr (cdr form))))))) 3547 (byte-compile-lambda (cons 'lambda (cdr (cdr form)))))))
3548 (byte-compile-discard)) 3548 (byte-compile-discard))
3549 ;; We prefer to generate a defalias form so it will record the function
3550 ;; definition just like interpreting a defun/
3549 (byte-compile-form 3551 (byte-compile-form
3550 (list 'defalias 3552 (list 'defalias
3551 (list 'quote (nth 1 form)) 3553 (list 'quote (nth 1 form))
3552 (byte-compile-byte-code-maker 3554 (byte-compile-byte-code-maker
3553 (byte-compile-lambda (cons 'lambda (cdr (cdr form)))))) 3555 (byte-compile-lambda (cons 'lambda (cdr (cdr form))))))