Skip to content

Commit

Permalink
Fix cycle back movement for item navigation kiwanami#104
Browse files Browse the repository at this point in the history
  • Loading branch information
kiwanami committed Jan 18, 2018
1 parent 3415d86 commit 03abce9
Showing 1 changed file with 9 additions and 1 deletion.
10 changes: 9 additions & 1 deletion calfw.el
Original file line number Diff line number Diff line change
Expand Up @@ -2343,14 +2343,22 @@ mainly used at functions for putting overlays."
this function returns nil."
(loop with pos = (cfw:dest-point-min dest)
with end = (cfw:dest-point-max dest)
with last-found = nil
for next = (next-single-property-change pos 'cfw:date nil end)
for text-date = (and next (cfw:cursor-to-date next))
for text-row-count = (and next (get-text-property next 'cfw:row-count))
while (and next (< next end)) do
(when (and text-date (equal date text-date)
(eql row-count text-row-count))
;; this is needed item
(return next))
(setq pos next)))
(when (and text-date (equal date text-date)
text-row-count)
;; keep it to search bottom item
(setq last-found next))
(setq pos next)
finally (if (and last-found (< row-count 0))
(return last-found))))

(defun cfw:navi-goto-date (date)
"Move the cursor to DATE and put selection. If DATE is not
Expand Down

0 comments on commit 03abce9

Please sign in to comment.