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

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

[elpa] externals/ivy-explorer af08f55 03/29: Refactoring


From: Clemens Radermacher
Subject: [elpa] externals/ivy-explorer af08f55 03/29: Refactoring
Date: Tue, 12 Mar 2019 09:04:34 -0400 (EDT)

branch: externals/ivy-explorer
commit af08f556e8a0eb1c62a440045a36b60364b40127
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Refactoring
---
 ivy-explorer.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ivy-explorer.el b/ivy-explorer.el
index d0bfcd7..09e1e3a 100644
--- a/ivy-explorer.el
+++ b/ivy-explorer.el
@@ -380,8 +380,8 @@ Move to file which was current on exit."
 (defun ivy-explorer-eol ()
   "Move cursor to last column."
   (interactive)
-  (let ((cc (1+ (% ivy--index ivy-explorer--col-n))))
-    (ivy-explorer-forward  (- ivy-explorer--col-n cc))))
+  (let ((ci (% ivy--index ivy-explorer--col-n)))
+    (ivy-explorer-forward  (- (1- ivy-explorer--col-n) ci))))
 
 (defun ivy-explorer-eol-and-call ()
   "Move cursor to last column.
@@ -395,8 +395,8 @@ Call the permanent action if possible."
 (defun ivy-explorer-bol ()
   "Move cursor to first column."
   (interactive)
-  (let ((cc (1+ (% ivy--index ivy-explorer--col-n))))
-    (ivy-explorer-backward  (1- cc))))
+  (let ((ci (% ivy--index ivy-explorer--col-n)))
+    (ivy-explorer-backward  ci)))
 
 (defun ivy-explorer-bol-and-call ()
   "Move cursor to first column.



reply via email to

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