diff options
| author | Juanma Barranquero | 2002-10-17 15:32:26 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2002-10-17 15:32:26 +0000 |
| commit | 6b8c2efcd6dab406bcc45eb8cbd273495ecc78bd (patch) | |
| tree | 8673bc4b660e07911023ad8dc9b14091c6ecd990 | |
| parent | 1276c77b44719b10a823d8167ec3472e8666d565 (diff) | |
| download | emacs-6b8c2efcd6dab406bcc45eb8cbd273495ecc78bd.tar.gz emacs-6b8c2efcd6dab406bcc45eb8cbd273495ecc78bd.zip | |
Fix typo.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index fd69d1bd154..e2d3b3411fa 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -10,7 +10,7 @@ | |||
| 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.114 $") | 13 | (defconst byte-compile-version "$Revision: 2.115 $") |
| 14 | 14 | ||
| 15 | ;; This file is part of GNU Emacs. | 15 | ;; This file is part of GNU Emacs. |
| 16 | 16 | ||
| @@ -342,7 +342,7 @@ Elements of the list may be be: | |||
| 342 | obsolete obsolete variables and functions. | 342 | obsolete obsolete variables and functions. |
| 343 | noruntime functions that may not be defined at runtime (typically | 343 | noruntime functions that may not be defined at runtime (typically |
| 344 | defined only under `eval-when-compile'). | 344 | defined only under `eval-when-compile'). |
| 345 | cl-functions calls to runtime functions from the CL package (as | 345 | cl-functions calls to runtime functions from the CL package (as |
| 346 | distinguished from macros and aliases)." | 346 | distinguished from macros and aliases)." |
| 347 | :group 'bytecomp | 347 | :group 'bytecomp |
| 348 | :type `(choice (const :tag "All" t) | 348 | :type `(choice (const :tag "All" t) |
| @@ -867,8 +867,8 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property." | |||
| 867 | ;; variable reference, like in (1+ foo), we remove `foo' from the | 867 | ;; variable reference, like in (1+ foo), we remove `foo' from the |
| 868 | ;; list. If our current position is after the symbol's position, we | 868 | ;; list. If our current position is after the symbol's position, we |
| 869 | ;; assume we've already passed that point, and look for the next | 869 | ;; assume we've already passed that point, and look for the next |
| 870 | ;; occurence of the symbol. | 870 | ;; occurrence of the symbol. |
| 871 | ;; So your're probably asking yourself: Isn't this function a | 871 | ;; So your're probably asking yourself: Isn't this function a |
| 872 | ;; gross hack? And the answer, of course, would be yes. | 872 | ;; gross hack? And the answer, of course, would be yes. |
| 873 | (defun byte-compile-set-symbol-position (sym &optional allow-previous) | 873 | (defun byte-compile-set-symbol-position (sym &optional allow-previous) |
| 874 | (when byte-compile-read-position | 874 | (when byte-compile-read-position |
| @@ -2161,7 +2161,7 @@ list that represents a doc string reference. | |||
| 2161 | (byte-compile-set-symbol-position (nth 1 form)) | 2161 | (byte-compile-set-symbol-position (nth 1 form)) |
| 2162 | (byte-compile-warn "probable `\"' without `\\' in doc string of %s" | 2162 | (byte-compile-warn "probable `\"' without `\\' in doc string of %s" |
| 2163 | (nth 1 form)))) | 2163 | (nth 1 form)))) |
| 2164 | 2164 | ||
| 2165 | ;; Generate code for declarations in macro definitions. | 2165 | ;; Generate code for declarations in macro definitions. |
| 2166 | ;; Remove declarations from the body of the macro definition. | 2166 | ;; Remove declarations from the body of the macro definition. |
| 2167 | (when macrop | 2167 | (when macrop |
| @@ -2176,7 +2176,7 @@ list that represents a doc string reference. | |||
| 2176 | (funcall macro-declaration-function | 2176 | (funcall macro-declaration-function |
| 2177 | ',name ',declaration)) | 2177 | ',name ',declaration)) |
| 2178 | outbuffer))))) | 2178 | outbuffer))))) |
| 2179 | 2179 | ||
| 2180 | (let* ((new-one (byte-compile-lambda (cons 'lambda (nthcdr 2 form)))) | 2180 | (let* ((new-one (byte-compile-lambda (cons 'lambda (nthcdr 2 form)))) |
| 2181 | (code (byte-compile-byte-code-maker new-one))) | 2181 | (code (byte-compile-byte-code-maker new-one))) |
| 2182 | (if this-one | 2182 | (if this-one |