emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/add-vdiff 88e7f1c 178/258: Remove min-window-width


From: Justin Burkett
Subject: [elpa] scratch/add-vdiff 88e7f1c 178/258: Remove min-window-width
Date: Wed, 17 May 2017 08:13:46 -0400 (EDT)

branch: scratch/add-vdiff
commit 88e7f1c14ba7b6daf5f3d1bfb3a663d4da1cdfd1
Author: justbur <address@hidden>
Commit: justbur <address@hidden>

    Remove min-window-width
---
 vdiff.el | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/vdiff.el b/vdiff.el
index 0fa58cd..53c90cb 100644
--- a/vdiff.el
+++ b/vdiff.el
@@ -342,12 +342,6 @@ because those are handled differently.")
             (t
              (remq this-ovr other-ovrs))))))
 
-(defun vdiff--min-window-width ()
-  (apply #'min
-         (mapcar (lambda (buf)
-                   (window-width (get-buffer-window buf)))
-                 (vdiff-session-buffers vdiff--session))))
-
 (defun vdiff--move-to-line (n)
   (goto-char (point-min))
   (forward-line (1- n)))
@@ -795,7 +789,7 @@ of a \"word\"."
 ;; * Add overlays
 
 (defun vdiff--make-subtraction-string (n-lines)
-  (let* ((width (1- (vdiff--min-window-width)))
+  (let* ((width (1- (window-width)))
          (win-height (window-height))
          (max-lines (floor (* 0.7 win-height)))
          (truncate (> n-lines max-lines))
@@ -885,7 +879,8 @@ of a \"word\"."
             (propertize (funcall vdiff-fold-string-function
                                  (- end-line beg-line)
                                  first-line-text
-                                 (vdiff--min-window-width))
+                                 (window-width
+                                  (get-buffer-window buffer)))
                         'face 'vdiff-closed-fold-face)))
       (overlay-put ovr 'face 'vdiff-open-fold-face)
       (overlay-put ovr 'vdiff-fold-text text)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]