[nongnu] elpa/sesman 34521cd5c2 049/100: Fix buffer lookup

[ELPA Syncer]

branch: elpa/sesman
commit 34521cd5c263a75c3a83a32ab2a31ef4ed864624
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>

    Fix buffer lookup
---
 sesman.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sesman.el b/sesman.el
index 9b0abe3250..fe777dca0d 100644
--- a/sesman.el
+++ b/sesman.el
@@ -386,8 +386,9 @@ ask for buffer."
                      (equal buffer '(4)))
                  (let ((this-system (sesman--system)))
                    (read-buffer "Link buffer: " (current-buffer) t
-                                (lambda (b)
-                                  (equal this-system (sesman--system-in-buffer 
b)))))
+                                (lambda (buf-cons)
+                                  (equal this-system
+                                         (sesman--system-in-buffer (cdr 
buf-cons))))))
                (or buffer (current-buffer)))))
     (sesman--link-session-interactively 'buffer buf session)))