Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Fix :move-point to work with visual block state.
  • Loading branch information
fukamachi committed Sep 1, 2023
commit 114b0b36d2a87cb02eeb2b863d677501b72dea9b
9 changes: 8 additions & 1 deletion extensions/vi-mode/commands/utils.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -204,7 +204,14 @@
(values start end type)
(values start end))
(when move-point
(move-point (current-point) start)))))
(if (eq type :block)
(with-point ((p (current-point)))
(move-to-line p (min (line-number-at-point start)
(line-number-at-point end)))
(move-to-column p (min (point-charpos start)
(point-charpos end)))
(move-point (current-point) p))
(move-point (current-point) start))))))

(defun call-define-operator (fn &key keep-visual restore-point)
(with-point ((*vi-origin-point* (current-point)))
Expand Down