# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1006280244 0
# Node ID f78848439507fa270393cc5c512fcbf767e532c5
# Parent  73c084009e57d0036f15822779aac02d4fce08e5
(bs-delete): Signal an error if the buffer cannot be deleted.

diff -r 73c084009e57 -r f78848439507 lisp/bs.el
--- a/lisp/bs.el	Tue Nov 20 15:10:42 2001 +0000
+++ b/lisp/bs.el	Tue Nov 20 18:17:24 2001 +0000
@@ -924,8 +924,9 @@
   (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)