From 208f4cea15f13fed329cfd7c623417b6341c9b44 Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Thu, 13 Nov 2025 11:59:02 +0100
Subject: [PATCH] fix jcs-kill-a-buffer

* bba.org: kill-this-buffer cant be used programmatic. Use
kill-current-buffer instead.
---
 bba.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bba.org b/bba.org
index 8539c65e..c0614cb2 100644
--- a/bba.org
+++ b/bba.org
@@ -2946,10 +2946,10 @@ Kill the current buffer without asking if there is no prefix.
   (defun jcs-kill-a-buffer (askp)
     (interactive "P")
     (if askp
-	(kill-buffer (funcall completing-read-function
+        (kill-buffer (funcall completing-read-function
                               "Kill buffer: "
                               (mapcar #'buffer-name (buffer-list))))
-      (kill-this-buffer)))
+      (kill-current-buffer)))
 
   (global-set-key (kbd "C-x k") 'jcs-kill-a-buffer)
 #+END_SRC
-- 
2.47.3