Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 23054:2f2375c24426
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. |