[elpa] externals/ivy-hydra e7eca37 085/395: counsel.el (counsel-switch-buffer-preview-virtual-buffers): Add

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit e7eca371522d96d27bc4b2f7d87f19c1b75e927c
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    counsel.el (counsel-switch-buffer-preview-virtual-buffers): Add
    
    Fixes #2360
---
 counsel.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index 55ce913..429a91e 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5686,6 +5686,10 @@ The buffers are those opened during a session of 
`counsel-switch-buffer'."
   (setq counsel--switch-buffer-temporary-buffers nil
         counsel--switch-buffer-previous-buffers nil))
 
+(defcustom counsel-switch-buffer-preview-virtual-buffers t
+  "When non-nil, `counsel-switch-buffer' will preview virtual buffers."
+  :type 'boolean)
+
 (defun counsel--switch-buffer-update-fn ()
   (unless counsel--switch-buffer-previous-buffers
     (setq counsel--switch-buffer-previous-buffers (buffer-list)))
@@ -5694,7 +5698,7 @@ The buffers are those opened during a session of 
`counsel-switch-buffer'."
     (cond
       ((get-buffer current)
        (ivy-call))
-      ((and virtual (file-exists-p (cdr virtual)))
+      ((and counsel-switch-buffer-preview-virtual-buffers virtual 
(file-exists-p (cdr virtual)))
        (let ((buf (ignore-errors
                     ;; may not open due to `large-file-warning-threshold' etc.
                     (find-file-noselect (cdr virtual)))))