diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-09 11:59:12 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-09 11:59:12 +0000 |
| commit | eb8c3be94e12644f506b8857e49ffef88046bb0b (patch) | |
| tree | 505c4ea5ae59214e4d6e749047d160c98191c9d2 /lisp/emacs-lisp/byte-opt.el | |
| parent | 16a4a21d0117ef5ed346f340f244fe199d3c8a26 (diff) | |
| download | emacs-eb8c3be94e12644f506b8857e49ffef88046bb0b.tar.gz emacs-eb8c3be94e12644f506b8857e49ffef88046bb0b.tar.bz2 emacs-eb8c3be94e12644f506b8857e49ffef88046bb0b.zip | |
Apply typo patches from Paul Eggert.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 4a39a71c617..c7ab880cf60 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -388,7 +388,7 @@ ((memq fn '(and or)) ; remember, and/or are control structures. ;; take forms off the back until we can't any more. - ;; In the future it could concievably be a problem that the + ;; In the future it could conceivably be a problem that the ;; subexpressions of these forms are optimized in the reverse ;; order, but it's ok for now. (if for-effect @@ -522,7 +522,7 @@ ;;; ;;; It is now safe to optimize code such that it introduces new bindings. -;; I'd like this to be a defsubst, but let's not be self-referental... +;; I'd like this to be a defsubst, but let's not be self-referential... (defmacro byte-compile-trueconstp (form) ;; Returns non-nil if FORM is a non-nil constant. (` (cond ((consp (, form)) (eq (car (, form)) 'quote)) @@ -773,7 +773,7 @@ ;; I'm not convinced that this is necessary. Doesn't the optimizer loop ;; take care of this? - Jamie ;; I think this may some times be necessary to reduce ie (quote 5) to 5, -;; so arithmetic optimizers recognize the numerinc constant. - Hallvard +;; so arithmetic optimizers recognize the numeric constant. - Hallvard (put 'quote 'byte-optimizer 'byte-optimize-quote) (defun byte-optimize-quote (form) (if (or (consp (nth 1 form)) @@ -1063,7 +1063,7 @@ ;;; and by the disassembler. ;;; (defun byte-decompile-bytecode (bytes constvec) - "Turns BYTECODE into lapcode, refering to CONSTVEC." + "Turns BYTECODE into lapcode, referring to CONSTVEC." (let ((byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0)) @@ -1418,7 +1418,7 @@ may generate incorrect code.") ((and (eq (car lap0) 'TAG) (eq (car lap1) 'TAG)) (and (memq byte-optimize-log '(t byte)) - (byte-compile-log " adjascent tags %d and %d merged" + (byte-compile-log " adjacent tags %d and %d merged" (nth 1 lap1) (nth 1 lap0))) (setq tmp3 lap) (while (setq tmp2 (rassq lap0 tmp3)) |