diff options
author | Alan Mackenzie <acm@muc.de> | 2018-12-09 12:59:03 +0000 |
---|---|---|
committer | Alan Mackenzie <acm@muc.de> | 2018-12-09 12:59:03 +0000 |
commit | d1c77129b067a97d854196527f6ec68e4138ae9f (patch) | |
tree | 4e04da09ea7521a0eb4ef7697cc38b7e55429053 /lisp/emacs-lisp | |
parent | d79bb75683ceb4eee2f753eb38fa8db99aff4568 (diff) | |
download | emacs-d1c77129b067a97d854196527f6ec68e4138ae9f.tar.gz emacs-d1c77129b067a97d854196527f6ec68e4138ae9f.tar.bz2 emacs-d1c77129b067a97d854196527f6ec68e4138ae9f.zip |
Don't create *Compile-Log* due to byte-compile. Amend message to it.
This fixes bug #33602 and is a partial reversion of a commit from
2018-11-28T13:15:50.
* lisp/emacs-lisp/bytecomp.el (byte-compile-log-file): Don't create buffer
*Compile-Log* because it doesn't already exist. Amend message "Compiling no
file" to be clearer (?and less irritating).
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index d6986cb7868..c0a764bafca 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1179,9 +1179,7 @@ we go into emacs-lisp-compilation-mode.") ;; Return the position of the start of the page in the log buffer. ;; But do nothing in batch mode. (defun byte-compile-log-file () - (and (not - (and (get-buffer byte-compile-log-buffer) - (equal byte-compile-current-file byte-compile-last-logged-file))) + (and (not (equal byte-compile-current-file byte-compile-last-logged-file)) (not noninteractive) (with-current-buffer (get-buffer-create byte-compile-log-buffer) (goto-char (point-max)) @@ -1204,7 +1202,7 @@ we go into emacs-lisp-compilation-mode.") (concat "in buffer " (buffer-name byte-compile-current-file))) " at " (current-time-string) "\n") - (insert "\f\nCompiling no file at " (current-time-string) "\n")) + (insert "\f\nCompiling internal form(s) at " (current-time-string) "\n")) (when dir (setq default-directory dir) (unless was-same |