Mercurial > vba-clojure
changeset 324:7876781520ea
fixed set-cursor so that moving the cursor backwards works
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 04 Apr 2012 01:04:06 -0500 |
parents | 92ee94945327 |
children | a5cdb2f76307 |
files | clojure/com/aurellem/run/bootstrap_0.clj |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj Wed Apr 04 00:56:53 2012 -0500 1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj Wed Apr 04 01:04:06 2012 -0500 1.3 @@ -378,8 +378,10 @@ 1.4 [n script] 1.5 (let [key (if (< 0 n) ↓ ↑)] 1.6 (multiple-times 1.7 - n (partial repeat-until-different 1.8 - key list-offset) script))) 1.9 + (Math/abs n) 1.10 + (partial repeat-until-different 1.11 + key list-offset) 1.12 + script))) 1.13 1.14 (defn set-cursor 1.15 "Assumes the arrow keys currently control the cursor. Sets