X-Git-Url: https://iankelling.org/git/?p=spray;a=blobdiff_plain;f=spray.el;h=c0d78085f2b36b214ec45e92481e1e3eda92189f;hp=727879880d604efe23d091e2928db800b80e2b55;hb=128c54ad6c001fd85d19acaaa95af183873d7160;hpb=3e2ce23265e2a52d7d640b5e387eaaa2ad41fea7 diff --git a/spray.el b/spray.el index 7278798..c0d7808 100644 --- a/spray.el +++ b/spray.el @@ -247,11 +247,11 @@ decreasing by one for each subsequent word." (len (+ (skip-chars-forward "^\s\t\n—") (skip-chars-forward "—"))) (end (point)) (accent (+ beg (cl-case len - ((1) 1) - ((2 3 4 5) 2) - ((6 7 8 9) 3) - ((10 11 12 13) 4) - (t 5))))) + ((1) 1) + ((2 3 4 5) 2) + ((6 7 8 9) 3) + ((10 11 12 13) 4) + (t 5))))) ;; this fairly obfuscated, using magic numbers to store state ;; it would be nice to sometime patch this so it is more readable. ;; for greater than 9 length, we display for twice as long