From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 20 Nov 2001 18:17:24 +0000 (+0000)
Subject: (bs-delete): Signal an error if the buffer cannot be deleted.
X-Git-Tag: ttn-vms-21-2-B4~18341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=706e6a5286c79831d7814691ffc1f3685c70a79b;p=emacs.git

(bs-delete): Signal an error if the buffer cannot be deleted.
---

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)