[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el |
Date: |
Sat, 19 Apr 2003 00:18:37 -0400 |
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
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Miles Bader, 2003/04/04
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Stefan Monnier, 2003/04/12
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Stefan Monnier, 2003/04/12
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Stefan Monnier, 2003/04/16
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,
Richard M. Stallman <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Stefan Monnier, 2003/04/21
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Richard M. Stallman, 2003/04/23
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Richard M. Stallman, 2003/04/23
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Richard M. Stallman, 2003/04/23
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, Dave Love, 2003/04/28
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el, John Paul Wallington, 2003/04/28