Mercurial > emacs

changeset 41312:f78848439507

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bs-delete): Signal an error if the buffer cannot be deleted.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 20 Nov 2001 18:17:24 +0000
parents 73c084009e57
children 2186cf9476ba
files lisp/bs.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)