aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2002-10-17 15:32:26 +0000
committerJuanma Barranquero2002-10-17 15:32:26 +0000
commit6b8c2efcd6dab406bcc45eb8cbd273495ecc78bd (patch)
tree8673bc4b660e07911023ad8dc9b14091c6ecd990
parent1276c77b44719b10a823d8167ec3472e8666d565 (diff)
downloademacs-6b8c2efcd6dab406bcc45eb8cbd273495ecc78bd.tar.gz
emacs-6b8c2efcd6dab406bcc45eb8cbd273495ecc78bd.zip
Fix typo.
-rw-r--r--lisp/emacs-lisp/bytecomp.el12
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