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

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.125 
emacs/lisp/emacs-lisp/bytecomp.el:2.126
*** emacs/lisp/emacs-lisp/bytecomp.el:2.125     Wed Apr 16 16:10:33 2003
--- emacs/lisp/emacs-lisp/bytecomp.el   Sat Apr 19 00:18:37 2003
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.125 $")
  
  ;; 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.126 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 949,955 ****
    (and (not (equal byte-compile-current-file byte-compile-last-logged-file))
         (not noninteractive)
         (save-excursion
!        (byte-goto-log-buffer)
         (goto-char (point-max))
         (let* ((dir (and byte-compile-current-file
                          (file-name-directory byte-compile-current-file)))
--- 949,955 ----
    (and (not (equal byte-compile-current-file byte-compile-last-logged-file))
         (not noninteractive)
         (save-excursion
!        (set-buffer (get-buffer-create "*Compile-Log*"))
         (goto-char (point-max))
         (let* ((dir (and byte-compile-current-file
                          (file-name-directory byte-compile-current-file)))
***************
*** 973,978 ****
--- 973,981 ----
             (unless was-same
               (insert (format "Entering directory `%s'\n" default-directory))))
           (setq byte-compile-last-logged-file byte-compile-current-file)
+          ;; Do this after setting default-directory.
+          (unless (eq major-mode 'compilation-mode)
+            (compilation-mode))
           pt))))
  
  ;; Log a message STRING in *Compile-Log*.
***************
*** 1424,1431 ****
      (save-some-buffers)
      (force-mode-line-update))
    (save-current-buffer
!     (byte-goto-log-buffer)
      (setq default-directory (expand-file-name directory))
      (let ((directories (list (expand-file-name directory)))
          (default-directory default-directory)
          (skip-count 0)
--- 1427,1437 ----
      (save-some-buffers)
      (force-mode-line-update))
    (save-current-buffer
!     (set-buffer (get-buffer-create "*Compile-Log*"))
      (setq default-directory (expand-file-name directory))
+     ;; compilation-mode copies value of default-directory.
+     (unless (eq major-mode 'compilation-mode)
+       (compilation-mode))
      (let ((directories (list (expand-file-name directory)))
          (default-directory default-directory)
          (skip-count 0)
***************
*** 1727,1732 ****
--- 1733,1741 ----
            (byte-compile-file-form form)))
        ;; Compile pending forms at end of file.
        (byte-compile-flush-pending)
+       ;; Make warnings about unresolved functions
+       ;; give the end of the file as their position.
+       (setq byte-compile-last-position (point-max))
        (byte-compile-warn-about-unresolved-functions)
        ;; Should we always do this?  When calling multiple files, it
        ;; would be useful to delay this warning until all have