924 |
(interactive) |
(interactive) |
925 |
(let ((current (bs--current-buffer)) |
(let ((current (bs--current-buffer)) |
926 |
(inhibit-read-only t)) |
(inhibit-read-only t)) |
927 |
|
(unless (kill-buffer current) |
928 |
|
(error "Buffer was not deleted")) |
929 |
(setq bs-current-list (delq current bs-current-list)) |
(setq bs-current-list (delq current bs-current-list)) |
|
(kill-buffer current) |
|
930 |
(beginning-of-line) |
(beginning-of-line) |
931 |
(delete-region (point) (save-excursion |
(delete-region (point) (save-excursion |
932 |
(end-of-line) |
(end-of-line) |