[elpa] externals/xelb 117cf88f73 1/2: Disable undo on the debug log buffer

[ELPA Syncer]

branch: externals/xelb
commit 117cf88f735e91dbbb568e62140b88aad307c9c7
Author: Adrián Medraño Calvo <adrian@medranocalvo.com>
Commit: Adrián Medraño Calvo <adrian@medranocalvo.com>

    Disable undo on the debug log buffer
    
    * xcb-debug.el (xcb-debug:-get-buffer): New function initializing
    the debug log buffer.
    (xcb-debug:backtrace, xcb-debug:-with-debug-buffer): Use it.
---
 xcb-debug.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/xcb-debug.el b/xcb-debug.el
index ee54239aaa..b72a46dfde 100644
--- a/xcb-debug.el
+++ b/xcb-debug.el
@@ -74,7 +74,7 @@ Here are some predefined candidates:
 
 (defmacro xcb-debug:-with-debug-buffer (&rest forms)
   "Evaluate FORMS making sure `xcb-debug:buffer' is correctly updated."
-  `(with-current-buffer (get-buffer-create xcb-debug:buffer)
+  `(with-current-buffer (xcb-debug:-get-buffer)
      (let (windows-eob)
        ;; Note windows whose point is at EOB.
        (dolist (w (get-buffer-window-list xcb-debug:buffer t 'nomini))
@@ -98,7 +98,7 @@ the passed OBJECTS.  See `format' for details."
 (defmacro xcb-debug:backtrace ()
   "Print a backtrace to the `xcb-debug:buffer'."
   '(xcb-debug:-with-debug-buffer
-    (let ((standard-output (get-buffer-create xcb-debug:buffer)))
+    (let ((standard-output (xcb-debug:-get-buffer)))
       (backtrace))))
 
 (defmacro xcb-debug:backtrace-on-error (&rest forms)
@@ -107,6 +107,14 @@ the passed OBJECTS.  See `format' for details."
          (debugger (lambda (&rest _) (xcb-debug:backtrace))))
      ,@forms))
 
+(defun xcb-debug:-get-buffer ()
+  "Get or create `xcb-debug:buffer'."
+  (let ((buffer (get-buffer xcb-debug:buffer)))
+    (unless buffer
+      (setq buffer (get-buffer-create xcb-debug:buffer))
+      (buffer-disable-undo buffer))
+    buffer))
+
 (defun xcb-debug:clear ()
   "Clear the debug buffer."
   (interactive)