Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 35145:85b1d35e08bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-log-1): In non-batch case, don't mention the file name or the date here, because they are logged at the start of the file.
author Richard M. Stallman <rms@gnu.org>
date Mon, 08 Jan 2001 19:33:02 +0000
parents bd48e8729dbb
children 3d650ae7e609
comparison
equal deleted inserted replaced
35144:41f416b6e43a 35145:85b1d35e08bd
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: lisp 9 ;; Keywords: lisp
10 10
11 ;;; This version incorporates changes up to version 2.10 of the 11 ;;; This version incorporates changes up to version 2.10 of the
12 ;;; Zawinski-Furuseth compiler. 12 ;;; Zawinski-Furuseth compiler.
13 (defconst byte-compile-version "$Revision: 2.80 $") 13 (defconst byte-compile-version "$Revision: 2.81 $")
14 14
15 ;; This file is part of GNU Emacs. 15 ;; This file is part of GNU Emacs.
16 16
17 ;; GNU Emacs is free software; you can redistribute it and/or modify 17 ;; GNU Emacs is free software; you can redistribute it and/or modify
18 ;; it under the terms of the GNU General Public License as published by 18 ;; it under the terms of the GNU General Public License as published by
840 (not (equal byte-compile-current-file 840 (not (equal byte-compile-current-file
841 byte-compile-last-logged-file))) 841 byte-compile-last-logged-file)))
842 (and byte-compile-last-warned-form 842 (and byte-compile-last-warned-form
843 (not (eq byte-compile-current-form 843 (not (eq byte-compile-current-form
844 byte-compile-last-warned-form)))) 844 byte-compile-last-warned-form))))
845 (if byte-compile-current-file 845 ;;; This is redundant, since it is given at the start of the file,
846 (insert "\n\^L\n" (current-time-string) "\n")) 846 ;;; and the extra clutter gets in the way -- rms.
847 (insert "While compiling " 847 ;;; (if (and byte-compile-current-file
848 ;;; (not (equal byte-compile-current-file
849 ;;; byte-compile-last-logged-file)))
850 ;;; (insert "\n\^L\n" (current-time-string) "\n"))
851 (insert "\nWhile compiling "
848 (if byte-compile-current-form 852 (if byte-compile-current-form
849 (format "%s" byte-compile-current-form) 853 (format "%s" byte-compile-current-form)
850 "toplevel forms")) 854 "toplevel forms"))
851 (if byte-compile-current-file 855 ;;; This is redundant, since it is given at the start of the file,
852 (if (stringp byte-compile-current-file) 856 ;;; and the extra clutter gets in the way -- rms.
853 (insert " in file " byte-compile-current-file) 857 ;;; (if byte-compile-current-file
854 (insert " in buffer " 858 ;;; (if (stringp byte-compile-current-file)
855 (buffer-name byte-compile-current-file)))) 859 ;;; (insert " in file " byte-compile-current-file)
860 ;;; (insert " in buffer "
861 ;;; (buffer-name byte-compile-current-file))))
856 (insert ":\n"))) 862 (insert ":\n")))
857 (insert " " string "\n") 863 (insert " " string "\n")
858 (if (and fill (not (string-match "\n" string))) 864 (if (and fill (not (string-match "\n" string)))
859 (let ((fill-prefix " ") 865 (let ((fill-prefix " ")
860 (fill-column 78)) 866 (fill-column 78))