fix jcs-kill-a-buffer

* bba.org: kill-this-buffer cant be used programmatic. Use
kill-current-buffer instead.

diff --git a/bba.org b/bba.org
index 8539c65ed81a7ac1d68593e835971457355dc35f..c0614cb2ca734ecf0e395ca4dc637ffc434c3933 100644 (file)
--- 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