Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 75836:6a3bdbdc77a5
(byte-compile-dest-file, byte-compile-file): Doc fixes.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 13 Feb 2007 12:07:26 +0000 |
| parents | 76c18a7841bf |
| children | 63e4cb93803a 07774e5c3ff5 dd7c098af727 |
comparison
equal
deleted
inserted
replaced
| 75835:770406986ce8 | 75836:6a3bdbdc77a5 |
|---|---|
| 217 | 217 |
| 218 (or (fboundp 'byte-compile-dest-file) | 218 (or (fboundp 'byte-compile-dest-file) |
| 219 ;; The user may want to redefine this along with emacs-lisp-file-regexp, | 219 ;; The user may want to redefine this along with emacs-lisp-file-regexp, |
| 220 ;; so only define it if it is undefined. | 220 ;; so only define it if it is undefined. |
| 221 (defun byte-compile-dest-file (filename) | 221 (defun byte-compile-dest-file (filename) |
| 222 "Convert an Emacs Lisp source file name to a compiled file name." | 222 "Convert an Emacs Lisp source file name to a compiled file name. |
| 223 If FILENAME matches `emacs-lisp-file-regexp' (by default, files | |
| 224 with the extension `.el'), add `c' to it; otherwise add `.elc'." | |
| 223 (setq filename (byte-compiler-base-file-name filename)) | 225 (setq filename (byte-compiler-base-file-name filename)) |
| 224 (setq filename (file-name-sans-versions filename)) | 226 (setq filename (file-name-sans-versions filename)) |
| 225 (cond ((eq system-type 'vax-vms) | 227 (cond ((eq system-type 'vax-vms) |
| 226 (concat (substring filename 0 (string-match ";" filename)) "c")) | 228 (concat (substring filename 0 (string-match ";" filename)) "c")) |
| 227 ((string-match emacs-lisp-file-regexp filename) | 229 ((string-match emacs-lisp-file-regexp filename) |
| 1613 ;;;###autoload(put 'no-byte-compile 'safe-local-variable 'booleanp) | 1615 ;;;###autoload(put 'no-byte-compile 'safe-local-variable 'booleanp) |
| 1614 | 1616 |
| 1615 ;;;###autoload | 1617 ;;;###autoload |
| 1616 (defun byte-compile-file (filename &optional load) | 1618 (defun byte-compile-file (filename &optional load) |
| 1617 "Compile a file of Lisp code named FILENAME into a file of byte code. | 1619 "Compile a file of Lisp code named FILENAME into a file of byte code. |
| 1618 The output file's name is made by appending `c' to the end of FILENAME. | 1620 The output file's name is generated by passing FILENAME to the |
| 1621 `byte-compile-dest-file' function (which see). | |
| 1619 With prefix arg (noninteractively: 2nd arg), LOAD the file after compiling. | 1622 With prefix arg (noninteractively: 2nd arg), LOAD the file after compiling. |
| 1620 The value is non-nil if there were no errors, nil if errors." | 1623 The value is non-nil if there were no errors, nil if errors." |
| 1621 ;; (interactive "fByte compile file: \nP") | 1624 ;; (interactive "fByte compile file: \nP") |
| 1622 (interactive | 1625 (interactive |
| 1623 (let ((file buffer-file-name) | 1626 (let ((file buffer-file-name) |