From f0b1519fbd0fea728238758d6bec074c32be1142 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 24 Nov 2019 18:34:54 +0100 Subject: [PATCH] rename native-compile-log-buffer -> comp-log-buffer-name --- lisp/emacs-lisp/comp.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 28b83a6199b..b1460f21c5d 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -74,8 +74,10 @@ This intended for debugging the compiler itself. :type 'boolean :group 'comp) -(defconst native-compile-log-buffer "*Native-compile-Log*" - "Name of the native-compiler log buffer.") +(defconst comp-log-buffer-name "*Native-compile-Log*" + "Name of the native-compiler log buffer." + :type 'string + :group 'comp) (defcustom comp-async-buffer-name "*Async-compilation*" "Name of the async compilation buffer log." @@ -324,7 +326,7 @@ BODY is evaluate only if `comp-verbose' is > 0." (declare (debug (form body)) (indent defun)) `(when (> comp-verbose 0) - (with-current-buffer (get-buffer-create native-compile-log-buffer) + (with-current-buffer (get-buffer-create comp-log-buffer-name) (setf buffer-read-only t) (let ((inhibit-read-only t)) (goto-char (point-max)) -- 2.39.5