[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.115 
emacs/lisp/emacs-lisp/bytecomp.el:2.116
*** emacs/lisp/emacs-lisp/bytecomp.el:2.115     Wed Sep 18 12:02:49 2002
--- emacs/lisp/emacs-lisp/bytecomp.el   Thu Oct 17 11:32:26 2002
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.115 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.116 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 342,348 ****
    obsolete    obsolete variables and functions.
    noruntime   functions that may not be defined at runtime (typically
                defined only under `eval-when-compile').
!   cl-functions    calls to runtime functions from the CL package (as 
                  distinguished from macros and aliases)."
    :group 'bytecomp
    :type `(choice (const :tag "All" t)
--- 342,348 ----
    obsolete    obsolete variables and functions.
    noruntime   functions that may not be defined at runtime (typically
                defined only under `eval-when-compile').
!   cl-functions    calls to runtime functions from the CL package (as
                  distinguished from macros and aliases)."
    :group 'bytecomp
    :type `(choice (const :tag "All" t)
***************
*** 867,874 ****
  ;; variable reference, like in (1+ foo), we remove `foo' from the
  ;; list.  If our current position is after the symbol's position, we
  ;; assume we've already passed that point, and look for the next
! ;; occurence of the symbol.
! ;; So your're probably asking yourself: Isn't this function a 
  ;; gross hack?  And the answer, of course, would be yes.
  (defun byte-compile-set-symbol-position (sym &optional allow-previous)
    (when byte-compile-read-position
--- 867,874 ----
  ;; variable reference, like in (1+ foo), we remove `foo' from the
  ;; list.  If our current position is after the symbol's position, we
  ;; assume we've already passed that point, and look for the next
! ;; occurrence of the symbol.
! ;; So your're probably asking yourself: Isn't this function a
  ;; gross hack?  And the answer, of course, would be yes.
  (defun byte-compile-set-symbol-position (sym &optional allow-previous)
    (when byte-compile-read-position
***************
*** 2161,2167 ****
        (byte-compile-set-symbol-position (nth 1 form))
        (byte-compile-warn "probable `\"' without `\\' in doc string of %s"
                           (nth 1 form))))
!     
      ;; Generate code for declarations in macro definitions.
      ;; Remove declarations from the body of the macro definition.
      (when macrop
--- 2161,2167 ----
        (byte-compile-set-symbol-position (nth 1 form))
        (byte-compile-warn "probable `\"' without `\\' in doc string of %s"
                           (nth 1 form))))
! 
      ;; Generate code for declarations in macro definitions.
      ;; Remove declarations from the body of the macro definition.
      (when macrop
***************
*** 2176,2182 ****
                        (funcall macro-declaration-function
                                 ',name ',declaration))
                   outbuffer)))))
!       
      (let* ((new-one (byte-compile-lambda (cons 'lambda (nthcdr 2 form))))
           (code (byte-compile-byte-code-maker new-one)))
        (if this-one
--- 2176,2182 ----
                        (funcall macro-declaration-function
                                 ',name ',declaration))
                   outbuffer)))))
! 
      (let* ((new-one (byte-compile-lambda (cons 'lambda (nthcdr 2 form))))
           (code (byte-compile-byte-code-maker new-one)))
        (if this-one