* lisp/emacs-lisp/bytecomp.el (byte-compile-log-1): Create buffer if necessary

This commit is contained in:
Andrea Corallo 2022-08-17 23:31:41 +02:00
parent f0c5de7839
commit 3e042c80ce

View file

@ -1161,7 +1161,7 @@ message buffer `default-directory'."
;; Log something that isn't a warning.
(defun byte-compile-log-1 (string)
(with-current-buffer byte-compile-log-buffer
(with-current-buffer (get-buffer-create byte-compile-log-buffer)
(let ((inhibit-read-only t))
(goto-char (point-max))
(byte-compile-warning-prefix nil nil)