From 706e6a5286c79831d7814691ffc1f3685c70a79b Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 20 Nov 2001 18:17:24 +0000
Subject: [PATCH] (bs-delete): Signal an error if the buffer cannot be deleted.

---
 lisp/bs.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/bs.el b/lisp/bs.el
index ac4598df0f7..357852d99ee 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -924,8 +924,9 @@ WHAT is a value of nil, `never', or `always'."
   (interactive)
   (let ((current (bs--current-buffer))
 	(inhibit-read-only t))
+    (unless (kill-buffer current)
+      (error "Buffer was not deleted"))
     (setq bs-current-list (delq current bs-current-list))
-    (kill-buffer current)
     (beginning-of-line)
     (delete-region (point) (save-excursion
 			     (end-of-line)
-- 
2.39.2