From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 24 Nov 2019 17:34:54 +0000 (+0100)
Subject: rename native-compile-log-buffer -> comp-log-buffer-name
X-Git-Tag: emacs-28.0.90~2727^2~945
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0b1519fbd0fea728238758d6bec074c32be1142;p=emacs.git

rename native-compile-log-buffer -> comp-log-buffer-name
---

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))