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

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

[elpa] scratch/add-vdiff d25fe21 054/258: More arg name changes


From: Justin Burkett
Subject: [elpa] scratch/add-vdiff d25fe21 054/258: More arg name changes
Date: Wed, 17 May 2017 08:13:22 -0400 (EDT)

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

    More arg name changes
---
 vdiff.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/vdiff.el b/vdiff.el
index 93d7aaf..3bb093b 100644
--- a/vdiff.el
+++ b/vdiff.el
@@ -364,20 +364,20 @@ text on the first line, and the width of the buffer."
                        (vdiff--make-subtraction-string n-subtraction-lines)))
         ovr))))
 
-(defun vdiff-fold-string-default (n-lines first-line width)
+(defun vdiff-fold-string-default (n-lines first-line-text width)
   "Produces default format line for closed folds. See
 `vdiff-fold-string-function'."
-  (let ((first-line (string-trim-left first-line))
+  (let ((first-line-text (string-trim-left first-line-text))
         (start (format "+--%d lines: " n-lines))
         (width (1- width)))
-    (if (> (+ 1 (length first-line) (length start)) width)
+    (if (> (+ 1 (length first-line-text) (length start)) width)
         (concat start
                 (substring-no-properties
-                 first-line 0 (- width (length start)))
+                 first-line-text 0 (- width (length start)))
                 "\n")
         (concat start
-                first-line
-                (make-string (- width (length start) (length first-line)) ?-)
+                first-line-text
+                (make-string (- width (length start) (length first-line-text)) 
?-)
                 "\n"))))
 
 (defun vdiff--make-fold (buffer range)



reply via email to

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