branch: elpa/sesman
commit 34521cd5c263a75c3a83a32ab2a31ef4ed864624
Author: Vitalie Spinu <[email protected]>
Commit: Vitalie Spinu <[email protected]>
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)))
