[elpa] master f180451 179/348: swiper.el (swiper-all): Fix window-width in -nw

[Oleh Krehel]

branch: master
commit f180451217277e63b067aa3d06d5af69140e320d
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    swiper.el (swiper-all): Fix window-width in -nw
    
    * swiper.el (swiper-window-width): New defvar. Dynamically rebound to
      current frame width.
    (swiper-all): Avoid continuation lines for emacs -nw.
---
 swiper.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/swiper.el b/swiper.el
index d247460..43c3c43 100644
--- a/swiper.el
+++ b/swiper.el
@@ -786,8 +786,10 @@ Run `swiper' for those buffers."
           (list "")
         (setq ivy--old-cands (nreverse cands))))))
 
+(defvar swiper-window-width 80)
+
 (defun swiper--all-format-function (cands)
-  (let* ((ww (window-width))
+  (let* ((ww swiper-window-width)
          (col2 1)
          (cands-with-buffer
           (mapcar (lambda (s)
@@ -825,7 +827,8 @@ Run `swiper' for those buffers."
 (defun swiper-all ()
   "Run `swiper' for all opened buffers."
   (interactive)
-  (let ((ivy-format-function #'swiper--all-format-function))
+  (let* ((swiper-window-width (- (frame-width) (if (display-graphic-p) 0 1)))
+         (ivy-format-function #'swiper--all-format-function))
     (ivy-read "swiper-all: " 'swiper-all-function
               :action 'swiper-all-action
               :unwind #'swiper--cleanup