[nongnu] elpa/helm 9d1ea966c3 2/4: Support a buffer-name as selection in helm-buffers-quit-and-find-file-fn

[ELPA Syncer]

branch: elpa/helm
commit 9d1ea966c3c2a74e647d52ac0fb168958f87c178
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Support a buffer-name as selection in helm-buffers-quit-and-find-file-fn
---
 helm-buffers.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/helm-buffers.el b/helm-buffers.el
index 5f1dee3973..0b6c90e5b6 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -1111,18 +1111,16 @@ Can be used by any source that list buffers."
              nil "You are already browsing this project"))
 
 (defun helm-buffers-quit-and-find-file-fn (source)
-  (let* ((sel (helm-get-selection nil nil source))
-         (buf (helm-aand (bufferp sel)
-                         (get-buffer sel)
-                         (buffer-name it))))
-    (when buf
+  (let* ((sel   (get-buffer (helm-get-selection nil nil source)))
+         (bname (and (bufferp sel) (buffer-name sel))))
+    (when bname
       (or (buffer-file-name sel)
-          (car (rassoc buf dired-buffers))
-          (and (with-current-buffer buf
+          (car (rassoc bname dired-buffers))
+          (and (with-current-buffer bname
                  (eq major-mode 'org-agenda-mode))
                org-directory
                (expand-file-name org-directory))
-          (with-current-buffer buf
+          (with-current-buffer bname
             (expand-file-name default-directory))))))
 
 ;;; Candidate Transformers