[nongnu] elpa/sweeprolog 5a8f70149f 099/166: FIXED: (sweep-load-buffer): error after prompting for a buffer

[ELPA Syncer]

branch: elpa/sweeprolog
commit 5a8f70149fd09859ac269b941aadde00c6a61536
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    FIXED: (sweep-load-buffer): error after prompting for a buffer
---
 sweep.el | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/sweep.el b/sweep.el
index 47661511b1..a4b7b59964 100644
--- a/sweep.el
+++ b/sweep.el
@@ -874,17 +874,18 @@ Interactively, if the major mode of the current buffer is
 `sweep-mode' and the command is called without a prefix argument,
 load the current buffer.  Otherwise, prompt for a `sweep-mode'
 buffer to load."
-  (interactive (if (and (not current-prefix-arg)
-                        (eq major-mode 'sweep-mode))
-                   (list (current-buffer))
-                 (read-buffer "Load buffer: "
-                              (when (eq major-mode 'sweep-mode)
-                                (buffer-name))
-                              t
-                              (lambda (b)
-                                (let ((n (or (and (consp b) (car b)) b)))
-                                  (with-current-buffer n
-                                    (eq major-mode 'sweep-mode)))))))
+  (interactive (list
+                (if (and (not current-prefix-arg)
+                         (eq major-mode 'sweep-mode))
+                    (current-buffer)
+                  (read-buffer "Load buffer: "
+                               (when (eq major-mode 'sweep-mode)
+                                 (buffer-name))
+                               t
+                               (lambda (b)
+                                 (let ((n (or (and (consp b) (car b)) b)))
+                                   (with-current-buffer n
+                                     (eq major-mode 'sweep-mode))))))))
   (with-current-buffer buffer
     (let* ((beg (point-min))
            (end (point-max))