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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.98.2.20 
emacs/lisp/emacs-lisp/bytecomp.el:2.98.2.21
*** emacs/lisp/emacs-lisp/bytecomp.el:2.98.2.20 Thu Apr 29 10:57:56 2004
--- emacs/lisp/emacs-lisp/bytecomp.el   Tue Jul  6 09:23:44 2004
***************
*** 912,935 ****
  
  ;; Log something that isn't a warning.
  (defmacro byte-compile-log (format-string &rest args)
!   (list 'and
!       'byte-optimize
!       '(memq byte-optimize-log '(t source))
!       (list 'let '((print-escape-newlines t)
!                    (print-level 4)
!                    (print-length 4))
!             (list 'byte-compile-log-1
!                   (cons 'format
!                     (cons format-string
!                       (mapcar
!                        (lambda (x)
!                          (if (symbolp x) (list 'prin1-to-string x) x))
!                        args)))))))
  
  ;; Log something that isn't a warning.
  (defun byte-compile-log-1 (string)
!   (save-excursion
!     (byte-goto-log-buffer)
      (goto-char (point-max))
      (byte-compile-warning-prefix nil nil)
      (cond (noninteractive
--- 912,933 ----
  
  ;; Log something that isn't a warning.
  (defmacro byte-compile-log (format-string &rest args)
!   `(and
!     byte-optimize
!     (memq byte-optimize-log '(t source))
!     (let ((print-escape-newlines t)
!         (print-level 4)
!         (print-length 4))
!       (byte-compile-log-1
!        (format
!       ,format-string
!       ,@(mapcar
!          (lambda (x) (if (symbolp x) (list 'prin1-to-string x) x))
!          args))))))
  
  ;; Log something that isn't a warning.
  (defun byte-compile-log-1 (string)
!   (with-current-buffer "*Compile-Log*"
      (goto-char (point-max))
      (byte-compile-warning-prefix nil nil)
      (cond (noninteractive
***************
*** 983,993 ****
  (defvar byte-compile-last-warned-form nil)
  (defvar byte-compile-last-logged-file nil)
  
- (defun byte-goto-log-buffer ()
-   (set-buffer (get-buffer-create "*Compile-Log*"))
-   (unless (eq major-mode 'compilation-mode)
-     (compilation-mode)))
- 
  ;; This is used as warning-prefix for the compiler.
  ;; It is always called with the warnings buffer current.
  (defun byte-compile-warning-prefix (level entry)
--- 981,986 ----
***************
*** 1063,1068 ****
--- 1056,1062 ----
           ;; Do this after setting default-directory.
           (unless (eq major-mode 'compilation-mode)
             (compilation-mode))
+          (compilation-forget-errors)
           pt))))
  
  ;; Log a message STRING in *Compile-Log*.