Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 23054:2f2375c24426

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace change.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Aug 1998 07:02:59 +0000
parents 5571f38cc118
children 99ab9c46504a
comparison
equal deleted inserted replaced
23053:09d1521f9984 23054:2f2375c24426
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Keywords: lisp 8 ;; Keywords: lisp
9 9
10 ;;; This version incorporates changes up to version 2.10 of the 10 ;;; This version incorporates changes up to version 2.10 of the
11 ;;; Zawinski-Furuseth compiler. 11 ;;; Zawinski-Furuseth compiler.
12 (defconst byte-compile-version "$Revision: 2.48 $") 12 (defconst byte-compile-version "$Revision: 2.49 $")
13 13
14 ;; This file is part of GNU Emacs. 14 ;; This file is part of GNU Emacs.
15 15
16 ;; GNU Emacs is free software; you can redistribute it and/or modify 16 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by 17 ;; it under the terms of the GNU General Public License as published by
218 (defun byte-compile-dest-file (filename) 218 (defun byte-compile-dest-file (filename)
219 "Convert an Emacs Lisp source file name to a compiled file name." 219 "Convert an Emacs Lisp source file name to a compiled file name."
220 (setq filename (byte-compiler-base-file-name filename)) 220 (setq filename (byte-compiler-base-file-name filename))
221 (setq filename (file-name-sans-versions filename)) 221 (setq filename (file-name-sans-versions filename))
222 (cond ((eq system-type 'vax-vms) 222 (cond ((eq system-type 'vax-vms)
223 (concat (substring filename 0 (string-match ";" filename)) "c")) 223 (concat (substring filename 0 (string-match ";" filename)) "c"))
224 ((string-match emacs-lisp-file-regexp filename) 224 ((string-match emacs-lisp-file-regexp filename)
225 (concat (substring filename 0 (match-beginning 0)) ".elc")) 225 (concat (substring filename 0 (match-beginning 0)) ".elc"))
226 (t (concat filename ".elc"))))) 226 (t (concat filename ".elc")))))
227 227
228 ;; This can be the 'byte-compile property of any symbol. 228 ;; This can be the 'byte-compile property of any symbol.
229 (autoload 'byte-compile-inline-expand "byte-opt") 229 (autoload 'byte-compile-inline-expand "byte-opt")
230 230
231 ;; This is the entrypoint to the lapcode optimizer pass1. 231 ;; This is the entrypoint to the lapcode optimizer pass1.