reline 0.1.3

data/lib/reline/key_stroke.rb

@@ -0,0 +1,53 @@
+class Reline::KeyStroke
+  using Module.new {
+    refine Array do
+      def start_with?(other)
+        other.size <= size && other == self.take(other.size)
+      end
+
+      def bytes
+        self
+      end
+    end
+  }
+
+  def initialize(config)
+    @config = config
+  end
+
+  def match_status(input)
+    key_mapping.keys.select { |lhs|
+      lhs.start_with? input
+    }.tap { |it|
+      return :matched  if it.size == 1 && (it.max_by(&:size)&.size&.== input.size)
+      return :matching if it.size == 1 && (it.max_by(&:size)&.size&.!= input.size)
+      return :matched  if it.max_by(&:size)&.size&.< input.size
+      return :matching if it.size > 1
+    }
+    key_mapping.keys.select { |lhs|
+      input.start_with? lhs
+    }.tap { |it|
+      return it.size > 0 ? :matched : :unmatched
+    }
+  end
+
+  def expand(input)
+    lhs = key_mapping.keys.select { |item| input.start_with? item }.sort_by(&:size).reverse.first
+    return input unless lhs
+    rhs = key_mapping[lhs]
+
+    case rhs
+    when String
+      rhs_bytes = rhs.bytes
+      expand(expand(rhs_bytes) + expand(input.drop(lhs.size)))
+    when Symbol
+      [rhs] + expand(input.drop(lhs.size))
+    end
+  end
+
+  private
+
+  def key_mapping
+    @config.key_bindings
+  end
+end

data/lib/reline/kill_ring.rb

@@ -0,0 +1,113 @@
+class Reline::KillRing
+  module State
+    FRESH = :fresh
+    CONTINUED = :continued
+    PROCESSED = :processed
+    YANK = :yank
+  end
+
+  RingPoint = Struct.new(:backward, :forward, :str) do
+    def initialize(str)
+      super(nil, nil, str)
+    end
+
+    def ==(other)
+      object_id == other.object_id
+    end
+  end
+
+  class RingBuffer
+    attr_reader :size
+    attr_reader :head
+
+    def initialize(max = 1024)
+      @max = max
+      @size = 0
+      @head = nil # reading head of ring-shaped tape
+    end
+
+    def <<(point)
+      if @size.zero?
+        @head = point
+        @head.backward = @head
+        @head.forward = @head
+        @size = 1
+      elsif @size >= @max
+        tail = @head.forward
+        new_tail = tail.forward
+        @head.forward = point
+        point.backward = @head
+        new_tail.backward = point
+        point.forward = new_tail
+        @head = point
+      else
+        tail = @head.forward
+        @head.forward = point
+        point.backward = @head
+        tail.backward = point
+        point.forward = tail
+        @head = point
+        @size += 1
+      end
+    end
+
+    def empty?
+      @size.zero?
+    end
+  end
+
+  def initialize(max = 1024)
+    @ring = RingBuffer.new(max)
+    @ring_pointer = nil
+    @buffer = nil
+    @state = State::FRESH
+  end
+
+  def append(string, before_p = false)
+    case @state
+    when State::FRESH, State::YANK
+      @ring << RingPoint.new(string)
+      @state = State::CONTINUED
+    when State::CONTINUED, State::PROCESSED
+      if before_p
+        @ring.head.str.prepend(string)
+      else
+        @ring.head.str.concat(string)
+      end
+      @state = State::CONTINUED
+    end
+  end
+
+  def process
+    case @state
+    when State::FRESH
+      # nothing to do
+    when State::CONTINUED
+      @state = State::PROCESSED
+    when State::PROCESSED
+      @state = State::FRESH
+    when State::YANK
+      # nothing to do
+    end
+  end
+
+  def yank
+    unless @ring.empty?
+      @state = State::YANK
+      @ring_pointer = @ring.head
+      @ring_pointer.str
+    else
+      nil
+    end
+  end
+
+  def yank_pop
+    if @state == State::YANK
+      prev_yank = @ring_pointer.str
+      @ring_pointer = @ring_pointer.backward
+      [@ring_pointer.str, prev_yank]
+    else
+      nil
+    end
+  end
+end

data/lib/reline/line_editor.rb

@@ -0,0 +1,2231 @@
+require 'reline/kill_ring'
+require 'reline/unicode'
+
+require 'tempfile'
+require 'pathname'
+
+class Reline::LineEditor
+  # TODO: undo
+  attr_reader :line
+  attr_reader :byte_pointer
+  attr_accessor :confirm_multiline_termination_proc
+  attr_accessor :completion_proc
+  attr_accessor :completion_append_character
+  attr_accessor :output_modifier_proc
+  attr_accessor :prompt_proc
+  attr_accessor :auto_indent_proc
+  attr_accessor :pre_input_hook
+  attr_accessor :dig_perfect_match_proc
+  attr_writer :output
+
+  VI_MOTIONS = %i{
+    ed_prev_char
+    ed_next_char
+    vi_zero
+    ed_move_to_beg
+    ed_move_to_end
+    vi_to_column
+    vi_next_char
+    vi_prev_char
+    vi_next_word
+    vi_prev_word
+    vi_to_next_char
+    vi_to_prev_char
+    vi_end_word
+    vi_next_big_word
+    vi_prev_big_word
+    vi_end_big_word
+    vi_repeat_next_char
+    vi_repeat_prev_char
+  }
+
+  module CompletionState
+    NORMAL = :normal
+    COMPLETION = :completion
+    MENU = :menu
+    JOURNEY = :journey
+    MENU_WITH_PERFECT_MATCH = :menu_with_perfect_match
+    PERFECT_MATCH = :perfect_match
+  end
+
+  CompletionJourneyData = Struct.new('CompletionJourneyData', :preposing, :postposing, :list, :pointer)
+  MenuInfo = Struct.new('MenuInfo', :target, :list)
+
+  CSI_REGEXP = /\e\[[\d;]*[ABCDEFGHJKSTfminsuhl]/
+  OSC_REGEXP = /\e\]\d+(?:;[^;]+)*\a/
+  NON_PRINTING_START = "\1"
+  NON_PRINTING_END = "\2"
+  WIDTH_SCANNER = /\G(?:#{NON_PRINTING_START}|#{NON_PRINTING_END}|#{CSI_REGEXP}|#{OSC_REGEXP}|\X)/
+
+  def initialize(config, encoding)
+    @config = config
+    @completion_append_character = ''
+    reset_variables(encoding: encoding)
+  end
+
+  private def check_multiline_prompt(buffer, prompt)
+    if @vi_arg
+      prompt = "(arg: #{@vi_arg}) "
+      @rerender_all = true
+    elsif @searching_prompt
+      prompt = @searching_prompt
+      @rerender_all = true
+    else
+      prompt = @prompt
+    end
+    if @prompt_proc
+      prompt_list = @prompt_proc.(buffer)
+      prompt_list.map!{ prompt } if @vi_arg or @searching_prompt
+      prompt = prompt_list[@line_index]
+      prompt_width = calculate_width(prompt, true)
+      [prompt, prompt_width, prompt_list]
+    else
+      prompt_width = calculate_width(prompt, true)
+      [prompt, prompt_width, nil]
+    end
+  end
+
+  def reset(prompt = '', encoding:)
+    @rest_height = (Reline::IOGate.get_screen_size.first - 1) - Reline::IOGate.cursor_pos.y
+    @screen_size = Reline::IOGate.get_screen_size
+    reset_variables(prompt, encoding: encoding)
+    @old_trap = Signal.trap('SIGINT') {
+      @old_trap.call if @old_trap.respond_to?(:call) # can also be string, ex: "DEFAULT"
+      raise Interrupt
+    }
+    Reline::IOGate.set_winch_handler do
+      @rest_height = (Reline::IOGate.get_screen_size.first - 1) - Reline::IOGate.cursor_pos.y
+      old_screen_size = @screen_size
+      @screen_size = Reline::IOGate.get_screen_size
+      if old_screen_size.last < @screen_size.last # columns increase
+        @rerender_all = true
+        rerender
+      else
+        back = 0
+        new_buffer = whole_lines
+        prompt, prompt_width, prompt_list = check_multiline_prompt(new_buffer, prompt)
+        new_buffer.each_with_index do |line, index|
+          prompt_width = calculate_width(prompt_list[index], true) if @prompt_proc
+          width = prompt_width + calculate_width(line)
+          height = calculate_height_by_width(width)
+          back += height
+        end
+        @highest_in_all = back
+        @highest_in_this = calculate_height_by_width(prompt_width + @cursor_max)
+        @first_line_started_from =
+          if @line_index.zero?
+            0
+          else
+            calculate_height_by_lines(@buffer_of_lines[0..(@line_index - 1)], prompt_list)
+          end
+        if @prompt_proc
+          prompt = prompt_list[@line_index]
+          prompt_width = calculate_width(prompt, true)
+        end
+        calculate_nearest_cursor
+        @started_from = calculate_height_by_width(prompt_width + @cursor) - 1
+        Reline::IOGate.move_cursor_column((prompt_width + @cursor) % @screen_size.last)
+        @highest_in_this = calculate_height_by_width(prompt_width + @cursor_max)
+        @rerender_all = true
+      end
+    end
+  end
+
+  def finalize
+    Signal.trap('SIGINT', @old_trap)
+  end
+
+  def eof?
+    @eof
+  end
+
+  def reset_variables(prompt = '', encoding:)
+    @prompt = prompt
+    @mark_pointer = nil
+    @encoding = encoding
+    @is_multiline = false
+    @finished = false
+    @cleared = false
+    @rerender_all = false
+    @history_pointer = nil
+    @kill_ring = Reline::KillRing.new
+    @vi_clipboard = ''
+    @vi_arg = nil
+    @waiting_proc = nil
+    @waiting_operator_proc = nil
+    @completion_journey_data = nil
+    @completion_state = CompletionState::NORMAL
+    @perfect_matched = nil
+    @menu_info = nil
+    @first_prompt = true
+    @searching_prompt = nil
+    @first_char = true
+    @eof = false
+    reset_line
+  end
+
+  def reset_line
+    @cursor = 0
+    @cursor_max = 0
+    @byte_pointer = 0
+    @buffer_of_lines = [String.new(encoding: @encoding)]
+    @line_index = 0
+    @previous_line_index = nil
+    @line = @buffer_of_lines[0]
+    @first_line_started_from = 0
+    @move_up = 0
+    @started_from = 0
+    @highest_in_this = 1
+    @highest_in_all = 1
+    @line_backup_in_history = nil
+    @multibyte_buffer = String.new(encoding: 'ASCII-8BIT')
+    @check_new_auto_indent = false
+  end
+
+  def multiline_on
+    @is_multiline = true
+  end
+
+  def multiline_off
+    @is_multiline = false
+  end
+
+  private def calculate_height_by_lines(lines, prompt_list)
+    result = 0
+    lines.each_with_index { |line, i|
+      prompt = ''
+      prompt = prompt_list[i] if prompt_list and prompt_list[i]
+      result += calculate_height_by_width(calculate_width(prompt, true) + calculate_width(line))
+    }
+    result
+  end
+
+  private def insert_new_line(cursor_line, next_line)
+    @line = cursor_line
+    @buffer_of_lines.insert(@line_index + 1, String.new(next_line, encoding: @encoding))
+    @previous_line_index = @line_index
+    @line_index += 1
+  end
+
+  private def calculate_height_by_width(width)
+    width.div(@screen_size.last) + 1
+  end
+
+  private def split_by_width(prompt, str, max_width)
+    lines = [String.new(encoding: @encoding)]
+    height = 1
+    width = 0
+    rest = "#{prompt}#{str}".encode(Encoding::UTF_8)
+    in_zero_width = false
+    rest.scan(WIDTH_SCANNER) do |gc|
+      case gc
+      when NON_PRINTING_START
+        in_zero_width = true
+      when NON_PRINTING_END
+        in_zero_width = false
+      when CSI_REGEXP, OSC_REGEXP
+        lines.last << gc
+      else
+        unless in_zero_width
+          mbchar_width = Reline::Unicode.get_mbchar_width(gc)
+          if (width += mbchar_width) > max_width
+            width = mbchar_width
+            lines << nil
+            lines << String.new(encoding: @encoding)
+            height += 1
+          end
+        end
+        lines.last << gc
+      end
+    end
+    # The cursor moves to next line in first
+    if width == max_width
+      lines << nil
+      lines << String.new(encoding: @encoding)
+      height += 1
+    end
+    [lines, height]
+  end
+
+  private def scroll_down(val)
+    if val <= @rest_height
+      Reline::IOGate.move_cursor_down(val)
+      @rest_height -= val
+    else
+      Reline::IOGate.move_cursor_down(@rest_height)
+      Reline::IOGate.scroll_down(val - @rest_height)
+      @rest_height = 0
+    end
+  end
+
+  private def move_cursor_up(val)
+    if val > 0
+      Reline::IOGate.move_cursor_up(val)
+      @rest_height += val
+    elsif val < 0
+      move_cursor_down(-val)
+    end
+  end
+
+  private def move_cursor_down(val)
+    if val > 0
+      Reline::IOGate.move_cursor_down(val)
+      @rest_height -= val
+      @rest_height = 0 if @rest_height < 0
+    elsif val < 0
+      move_cursor_up(-val)
+    end
+  end
+
+  private def calculate_nearest_cursor
+    @cursor_max = calculate_width(line)
+    new_cursor = 0
+    new_byte_pointer = 0
+    height = 1
+    max_width = @screen_size.last
+    if @config.editing_mode_is?(:vi_command)
+      last_byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @line.bytesize)
+      if last_byte_size > 0
+        last_mbchar = @line.byteslice(@line.bytesize - last_byte_size, last_byte_size)
+        last_width = Reline::Unicode.get_mbchar_width(last_mbchar)
+        cursor_max = @cursor_max - last_width
+      else
+        cursor_max = @cursor_max
+      end
+    else
+      cursor_max = @cursor_max
+    end
+    @line.encode(Encoding::UTF_8).grapheme_clusters.each do |gc|
+      mbchar_width = Reline::Unicode.get_mbchar_width(gc)
+      now = new_cursor + mbchar_width
+      if now > cursor_max or now > @cursor
+        break
+      end
+      new_cursor += mbchar_width
+      if new_cursor > max_width * height
+        height += 1
+      end
+      new_byte_pointer += gc.bytesize
+    end
+    @started_from = height - 1
+    @cursor = new_cursor
+    @byte_pointer = new_byte_pointer
+  end
+
+  def rerender
+    return if @line.nil?
+    if @menu_info
+      scroll_down(@highest_in_all - @first_line_started_from)
+      @rerender_all = true
+      @menu_info.list.sort!.each do |item|
+        Reline::IOGate.move_cursor_column(0)
+        @output.write item
+        @output.flush
+        scroll_down(1)
+      end
+      scroll_down(@highest_in_all - 1)
+      move_cursor_up(@highest_in_all - 1 - @first_line_started_from)
+      @menu_info = nil
+    end
+    prompt, prompt_width, prompt_list = check_multiline_prompt(whole_lines, prompt)
+    if @cleared
+      Reline::IOGate.clear_screen
+      @cleared = false
+      back = 0
+      modify_lines(whole_lines).each_with_index do |line, index|
+        if @prompt_proc
+          pr = prompt_list[index]
+          height = render_partial(pr, calculate_width(pr), line, false)
+        else
+          height = render_partial(prompt, prompt_width, line, false)
+        end
+        if index < (@buffer_of_lines.size - 1)
+          move_cursor_down(height)
+          back += height
+        end
+      end
+      move_cursor_up(back)
+      move_cursor_down(@first_line_started_from + @started_from)
+      Reline::IOGate.move_cursor_column((prompt_width + @cursor) % @screen_size.last)
+      return
+    end
+    new_highest_in_this = calculate_height_by_width(prompt_width + calculate_width(@line.nil? ? '' : @line))
+    # FIXME: end of logical line sometimes breaks
+    if @previous_line_index or new_highest_in_this != @highest_in_this
+      if @previous_line_index
+        new_lines = whole_lines(index: @previous_line_index, line: @line)
+      else
+        new_lines = whole_lines
+      end
+      prompt, prompt_width, prompt_list = check_multiline_prompt(new_lines, prompt)
+      all_height = calculate_height_by_lines(new_lines, prompt_list)
+      diff = all_height - @highest_in_all
+      move_cursor_down(@highest_in_all - @first_line_started_from - @started_from - 1)
+      if diff > 0
+        scroll_down(diff)
+        move_cursor_up(all_height - 1)
+      elsif diff < 0
+        (-diff).times do
+          Reline::IOGate.move_cursor_column(0)
+          Reline::IOGate.erase_after_cursor
+          move_cursor_up(1)
+        end
+        move_cursor_up(all_height - 1)
+      else
+        move_cursor_up(all_height - 1)
+      end
+      @highest_in_all = all_height
+      back = 0
+      modify_lines(new_lines).each_with_index do |line, index|
+        if @prompt_proc
+          prompt = prompt_list[index]
+          prompt_width = calculate_width(prompt, true)
+        end
+        height = render_partial(prompt, prompt_width, line, false)
+        if index < (new_lines.size - 1)
+          scroll_down(1)
+          back += height
+        else
+          back += height - 1
+        end
+      end
+      move_cursor_up(back)
+      if @previous_line_index
+        @buffer_of_lines[@previous_line_index] = @line
+        @line = @buffer_of_lines[@line_index]
+      end
+      @first_line_started_from =
+        if @line_index.zero?
+          0
+        else
+          calculate_height_by_lines(@buffer_of_lines[0..(@line_index - 1)], prompt_list)
+        end
+      if @prompt_proc
+        prompt = prompt_list[@line_index]
+        prompt_width = calculate_width(prompt, true)
+      end
+      move_cursor_down(@first_line_started_from)
+      calculate_nearest_cursor
+      @started_from = calculate_height_by_width(prompt_width + @cursor) - 1
+      move_cursor_down(@started_from)
+      Reline::IOGate.move_cursor_column((prompt_width + @cursor) % @screen_size.last)
+      @highest_in_this = calculate_height_by_width(prompt_width + @cursor_max)
+      @previous_line_index = nil
+      rendered = true
+    elsif @rerender_all
+      move_cursor_up(@first_line_started_from + @started_from)
+      Reline::IOGate.move_cursor_column(0)
+      back = 0
+      new_buffer = whole_lines
+      prompt, prompt_width, prompt_list = check_multiline_prompt(new_buffer, prompt)
+      new_buffer.each_with_index do |line, index|
+        prompt_width = calculate_width(prompt_list[index], true) if @prompt_proc
+        width = prompt_width + calculate_width(line)
+        height = calculate_height_by_width(width)
+        back += height
+      end
+      if back > @highest_in_all
+        scroll_down(back - 1)
+        move_cursor_up(back - 1)
+      elsif back < @highest_in_all
+        scroll_down(back)
+        Reline::IOGate.erase_after_cursor
+        (@highest_in_all - back - 1).times do
+          scroll_down(1)
+          Reline::IOGate.erase_after_cursor
+        end
+        move_cursor_up(@highest_in_all - 1)
+      end
+      modify_lines(new_buffer).each_with_index do |line, index|
+        if @prompt_proc
+          prompt = prompt_list[index]
+          prompt_width = calculate_width(prompt, true)
+        end
+        render_partial(prompt, prompt_width, line, false)
+        if index < (new_buffer.size - 1)
+          move_cursor_down(1)
+        end
+      end
+      move_cursor_up(back - 1)
+      if @prompt_proc
+        prompt = prompt_list[@line_index]
+        prompt_width = calculate_width(prompt, true)
+      end
+      @highest_in_all = back
+      @highest_in_this = calculate_height_by_width(prompt_width + @cursor_max)
+      @first_line_started_from =
+        if @line_index.zero?
+          0
+        else
+          calculate_height_by_lines(new_buffer[0..(@line_index - 1)], prompt_list)
+        end
+      @started_from = calculate_height_by_width(prompt_width + @cursor) - 1
+      move_cursor_down(@first_line_started_from + @started_from)
+      Reline::IOGate.move_cursor_column((prompt_width + @cursor) % @screen_size.last)
+      @rerender_all = false
+      rendered = true
+    end
+    line = modify_lines(whole_lines)[@line_index]
+    if @is_multiline
+      prompt, prompt_width, prompt_list = check_multiline_prompt(whole_lines, prompt)
+      if finished?
+        # Always rerender on finish because output_modifier_proc may return a different output.
+        render_partial(prompt, prompt_width, line)
+        scroll_down(1)
+        Reline::IOGate.move_cursor_column(0)
+        Reline::IOGate.erase_after_cursor
+      elsif not rendered
+        render_partial(prompt, prompt_width, line)
+      end
+    else
+      render_partial(prompt, prompt_width, line)
+      if finished?
+        scroll_down(1)
+        Reline::IOGate.move_cursor_column(0)
+        Reline::IOGate.erase_after_cursor
+      end
+    end
+  end
+
+  private def render_partial(prompt, prompt_width, line_to_render, with_control = true)
+    visual_lines, height = split_by_width(prompt, line_to_render.nil? ? '' : line_to_render, @screen_size.last)
+    if with_control
+      if height > @highest_in_this
+        diff = height - @highest_in_this
+        scroll_down(diff)
+        @highest_in_all += diff
+        @highest_in_this = height
+        move_cursor_up(diff)
+      elsif height < @highest_in_this
+        diff = @highest_in_this - height
+        @highest_in_all -= diff
+        @highest_in_this = height
+      end
+      move_cursor_up(@started_from)
+      @started_from = calculate_height_by_width(prompt_width + @cursor) - 1
+    end
+    Reline::IOGate.move_cursor_column(0)
+    visual_lines.each_with_index do |line, index|
+      if line.nil?
+        if Reline::IOGate.win? and calculate_width(visual_lines[index - 1], true) == Reline::IOGate.get_screen_size.last
+          # A newline is automatically inserted if a character is rendered at eol on command prompt.
+        else
+          Reline::IOGate.erase_after_cursor
+          move_cursor_down(1)
+          Reline::IOGate.move_cursor_column(0)
+        end
+        next
+      end
+      @output.write line
+      if Reline::IOGate.win? and calculate_width(line, true) == Reline::IOGate.get_screen_size.last
+        # A newline is automatically inserted if a character is rendered at eol on command prompt.
+        @rest_height -= 1 if @rest_height > 0
+      end
+      @output.flush
+      if @first_prompt
+        @first_prompt = false
+        @pre_input_hook&.call
+      end
+    end
+    Reline::IOGate.erase_after_cursor
+    if with_control
+      move_cursor_up(height - 1)
+      if finished?
+        move_cursor_down(@started_from)
+      end
+      move_cursor_down(@started_from)
+      Reline::IOGate.move_cursor_column((prompt_width + @cursor) % @screen_size.last)
+    end
+    height
+  end
+
+  private def modify_lines(before)
+    return before if before.nil? || before.empty?
+
+    if after = @output_modifier_proc&.call("#{before.join("\n")}\n", complete: finished?)
+      after.lines(chomp: true)
+    else
+      before
+    end
+  end
+
+  def editing_mode
+    @config.editing_mode
+  end
+
+  private def menu(target, list)
+    @menu_info = MenuInfo.new(target, list)
+  end
+
+  private def complete_internal_proc(list, is_menu)
+    preposing, target, postposing = retrieve_completion_block
+    list = list.select { |i|
+      if i and not Encoding.compatible?(target.encoding, i.encoding)
+        raise Encoding::CompatibilityError, "#{target.encoding.name} is not compatible with #{i.encoding.name}"
+      end
+      if @config.completion_ignore_case
+        i&.downcase&.start_with?(target.downcase)
+      else
+        i&.start_with?(target)
+      end
+    }
+    if is_menu
+      menu(target, list)
+      return nil
+    end
+    completed = list.inject { |memo, item|
+      begin
+        memo_mbchars = memo.unicode_normalize.grapheme_clusters
+        item_mbchars = item.unicode_normalize.grapheme_clusters
+      rescue Encoding::CompatibilityError
+        memo_mbchars = memo.grapheme_clusters
+        item_mbchars = item.grapheme_clusters
+      end
+      size = [memo_mbchars.size, item_mbchars.size].min
+      result = ''
+      size.times do |i|
+        if @config.completion_ignore_case
+          if memo_mbchars[i].casecmp?(item_mbchars[i])
+            result << memo_mbchars[i]
+          else
+            break
+          end
+        else
+          if memo_mbchars[i] == item_mbchars[i]
+            result << memo_mbchars[i]
+          else
+            break
+          end
+        end
+      end
+      result
+    }
+    [target, preposing, completed, postposing]
+  end
+
+  private def complete(list, just_show_list = false)
+    case @completion_state
+    when CompletionState::NORMAL, CompletionState::JOURNEY
+      @completion_state = CompletionState::COMPLETION
+    when CompletionState::PERFECT_MATCH
+      @dig_perfect_match_proc&.(@perfect_matched)
+    end
+    if just_show_list
+      is_menu = true
+    elsif @completion_state == CompletionState::MENU
+      is_menu = true
+    elsif @completion_state == CompletionState::MENU_WITH_PERFECT_MATCH
+      is_menu = true
+    else
+      is_menu = false
+    end
+    result = complete_internal_proc(list, is_menu)
+    if @completion_state == CompletionState::MENU_WITH_PERFECT_MATCH
+      @completion_state = CompletionState::PERFECT_MATCH
+    end
+    return if result.nil?
+    target, preposing, completed, postposing = result
+    return if completed.nil?
+    if target <= completed and (@completion_state == CompletionState::COMPLETION)
+      if list.include?(completed)
+        if list.one?
+          @completion_state = CompletionState::PERFECT_MATCH
+        else
+          @completion_state = CompletionState::MENU_WITH_PERFECT_MATCH
+        end
+        @perfect_matched = completed
+      else
+        @completion_state = CompletionState::MENU
+      end
+      if not just_show_list and target < completed
+        @line = preposing + completed + completion_append_character.to_s + postposing
+        line_to_pointer = preposing + completed + completion_append_character.to_s
+        @cursor_max = calculate_width(@line)
+        @cursor = calculate_width(line_to_pointer)
+        @byte_pointer = line_to_pointer.bytesize
+      end
+    end
+  end
+
+  private def move_completed_list(list, direction)
+    case @completion_state
+    when CompletionState::NORMAL, CompletionState::COMPLETION,
+         CompletionState::MENU, CompletionState::MENU_WITH_PERFECT_MATCH
+      @completion_state = CompletionState::JOURNEY
+      result = retrieve_completion_block
+      return if result.nil?
+      preposing, target, postposing = result
+      @completion_journey_data = CompletionJourneyData.new(
+        preposing, postposing,
+        [target] + list.select{ |item| item.start_with?(target) }, 0)
+      @completion_state = CompletionState::JOURNEY
+    else
+      case direction
+      when :up
+        @completion_journey_data.pointer -= 1
+        if @completion_journey_data.pointer < 0
+          @completion_journey_data.pointer = @completion_journey_data.list.size - 1
+        end
+      when :down
+        @completion_journey_data.pointer += 1
+        if @completion_journey_data.pointer >= @completion_journey_data.list.size
+          @completion_journey_data.pointer = 0
+        end
+      end
+      completed = @completion_journey_data.list[@completion_journey_data.pointer]
+      @line = @completion_journey_data.preposing + completed + @completion_journey_data.postposing
+      line_to_pointer = @completion_journey_data.preposing + completed
+      @cursor_max = calculate_width(@line)
+      @cursor = calculate_width(line_to_pointer)
+      @byte_pointer = line_to_pointer.bytesize
+    end
+  end
+
+  private def run_for_operators(key, method_symbol, &block)
+    if @waiting_operator_proc
+      if VI_MOTIONS.include?(method_symbol)
+        old_cursor, old_byte_pointer = @cursor, @byte_pointer
+        block.()
+        unless @waiting_proc
+          cursor_diff, byte_pointer_diff = @cursor - old_cursor, @byte_pointer - old_byte_pointer
+          @cursor, @byte_pointer = old_cursor, old_byte_pointer
+          @waiting_operator_proc.(cursor_diff, byte_pointer_diff)
+        else
+          old_waiting_proc = @waiting_proc
+          old_waiting_operator_proc = @waiting_operator_proc
+          @waiting_proc = proc { |k|
+            old_cursor, old_byte_pointer = @cursor, @byte_pointer
+            old_waiting_proc.(k)
+            cursor_diff, byte_pointer_diff = @cursor - old_cursor, @byte_pointer - old_byte_pointer
+            @cursor, @byte_pointer = old_cursor, old_byte_pointer
+            @waiting_operator_proc.(cursor_diff, byte_pointer_diff)
+            @waiting_operator_proc = old_waiting_operator_proc
+          }
+        end
+      else
+        # Ignores operator when not motion is given.
+        block.()
+      end
+      @waiting_operator_proc = nil
+    else
+      block.()
+    end
+  end
+
+  private def argumentable?(method_obj)
+    method_obj and method_obj.parameters.length != 1
+  end
+
+  private def process_key(key, method_symbol)
+    if method_symbol and respond_to?(method_symbol, true)
+      method_obj = method(method_symbol)
+    else
+      method_obj = nil
+    end
+    if method_symbol and key.is_a?(Symbol)
+      if @vi_arg and argumentable?(method_obj)
+        run_for_operators(key, method_symbol) do
+          method_obj.(key, arg: @vi_arg)
+        end
+      else
+        method_obj&.(key)
+      end
+      @kill_ring.process
+      @vi_arg = nil
+    elsif @vi_arg
+      if key.chr =~ /[0-9]/
+        ed_argument_digit(key)
+      else
+        if argumentable?(method_obj)
+          run_for_operators(key, method_symbol) do
+            method_obj.(key, arg: @vi_arg)
+          end
+        elsif @waiting_proc
+          @waiting_proc.(key)
+        elsif method_obj
+          method_obj.(key)
+        else
+          ed_insert(key)
+        end
+        @kill_ring.process
+        @vi_arg = nil
+      end
+    elsif @waiting_proc
+      @waiting_proc.(key)
+      @kill_ring.process
+    elsif method_obj
+      if method_symbol == :ed_argument_digit
+        method_obj.(key)
+      else
+        run_for_operators(key, method_symbol) do
+          method_obj.(key)
+        end
+      end
+      @kill_ring.process
+    else
+      ed_insert(key)
+    end
+  end
+
+  private def normal_char(key)
+    method_symbol = method_obj = nil
+    if key.combined_char.is_a?(Symbol)
+      process_key(key.combined_char, key.combined_char)
+      return
+    end
+    @multibyte_buffer << key.combined_char
+    if @multibyte_buffer.size > 1
+      if @multibyte_buffer.dup.force_encoding(@encoding).valid_encoding?
+        process_key(@multibyte_buffer.dup.force_encoding(@encoding), nil)
+        @multibyte_buffer.clear
+      else
+        # invalid
+        return
+      end
+    else # single byte
+      return if key.char >= 128 # maybe, first byte of multi byte
+      method_symbol = @config.editing_mode.get_method(key.combined_char)
+      if key.with_meta and method_symbol == :ed_unassigned
+        # split ESC + key
+        method_symbol = @config.editing_mode.get_method("\e".ord)
+        process_key("\e".ord, method_symbol)
+        method_symbol = @config.editing_mode.get_method(key.char)
+        process_key(key.char, method_symbol)
+      else
+        process_key(key.combined_char, method_symbol)
+      end
+      @multibyte_buffer.clear
+    end
+    if @config.editing_mode_is?(:vi_command) and @cursor > 0 and @cursor == @cursor_max
+      byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      mbchar = @line.byteslice(@byte_pointer, byte_size)
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor -= width
+    end
+  end
+
+  def input_key(key)
+    if key.char.nil?
+      if @first_char
+        @line = nil
+      end
+      finish
+      return
+    end
+    @first_char = false
+    completion_occurs = false
+    if @config.editing_mode_is?(:emacs, :vi_insert) and key.char == "\C-i".ord
+      unless @config.disable_completion
+        result = call_completion_proc
+        if result.is_a?(Array)
+          completion_occurs = true
+          complete(result)
+        end
+      end
+    elsif not @config.disable_completion and @config.editing_mode_is?(:vi_insert) and ["\C-p".ord, "\C-n".ord].include?(key.char)
+      unless @config.disable_completion
+        result = call_completion_proc
+        if result.is_a?(Array)
+          completion_occurs = true
+          move_completed_list(result, "\C-p".ord == key.char ? :up : :down)
+        end
+      end
+    elsif Symbol === key.char and respond_to?(key.char, true)
+      process_key(key.char, key.char)
+    else
+      normal_char(key)
+    end
+    unless completion_occurs
+      @completion_state = CompletionState::NORMAL
+    end
+    if @is_multiline and @auto_indent_proc
+      process_auto_indent
+    end
+  end
+
+  def call_completion_proc
+    result = retrieve_completion_block(true)
+    slice = result[1]
+    result = @completion_proc.(slice) if @completion_proc and slice
+    Reline.core.instance_variable_set(:@completion_quote_character, nil)
+    result
+  end
+
+  private def process_auto_indent
+    return if not @check_new_auto_indent and @previous_line_index # move cursor up or down
+    if @check_new_auto_indent and @previous_line_index and @previous_line_index > 0 and @line_index > @previous_line_index
+      # Fix indent of a line when a newline is inserted to the next
+      new_lines = whole_lines(index: @previous_line_index, line: @line)
+      new_indent = @auto_indent_proc.(new_lines[0..-3].push(''), @line_index - 1, 0, true)
+      md = @line.match(/\A */)
+      prev_indent = md[0].count(' ')
+      @line = ' ' * new_indent + @line.lstrip
+
+      new_indent = nil
+      result = @auto_indent_proc.(new_lines[0..-2], @line_index - 1, (new_lines[-2].size + 1), false)
+      if result
+        new_indent = result
+      end
+      if new_indent&.>= 0
+        @line = ' ' * new_indent + @line.lstrip
+      end
+    end
+    if @previous_line_index
+      new_lines = whole_lines(index: @previous_line_index, line: @line)
+    else
+      new_lines = whole_lines
+    end
+    new_indent = @auto_indent_proc.(new_lines, @line_index, @byte_pointer, @check_new_auto_indent)
+    if new_indent&.>= 0
+      md = new_lines[@line_index].match(/\A */)
+      prev_indent = md[0].count(' ')
+      if @check_new_auto_indent
+        @buffer_of_lines[@line_index] = ' ' * new_indent + @buffer_of_lines[@line_index].lstrip
+        @cursor = new_indent
+        @byte_pointer = new_indent
+      else
+        @line = ' ' * new_indent + @line.lstrip
+        @cursor += new_indent - prev_indent
+        @byte_pointer += new_indent - prev_indent
+      end
+    end
+    @check_new_auto_indent = false
+  end
+
+  def retrieve_completion_block(set_completion_quote_character = false)
+    word_break_regexp = /\A[#{Regexp.escape(Reline.completer_word_break_characters)}]/
+    quote_characters_regexp = /\A[#{Regexp.escape(Reline.completer_quote_characters)}]/
+    before = @line.byteslice(0, @byte_pointer)
+    rest = nil
+    break_pointer = nil
+    quote = nil
+    closing_quote = nil
+    escaped_quote = nil
+    i = 0
+    while i < @byte_pointer do
+      slice = @line.byteslice(i, @byte_pointer - i)
+      unless slice.valid_encoding?
+        i += 1
+        next
+      end
+      if quote and slice.start_with?(closing_quote)
+        quote = nil
+        i += 1
+        rest = nil
+      elsif quote and slice.start_with?(escaped_quote)
+        # skip
+        i += 2
+      elsif slice =~ quote_characters_regexp # find new "
+        rest = $'
+        quote = $&
+        closing_quote = /(?!\\)#{Regexp.escape(quote)}/
+        escaped_quote = /\\#{Regexp.escape(quote)}/
+        i += 1
+        break_pointer = i - 1
+      elsif not quote and slice =~ word_break_regexp
+        rest = $'
+        i += 1
+        before = @line.byteslice(i, @byte_pointer - i)
+        break_pointer = i
+      else
+        i += 1
+      end
+    end
+    postposing = @line.byteslice(@byte_pointer, @line.bytesize - @byte_pointer)
+    if rest
+      preposing = @line.byteslice(0, break_pointer)
+      target = rest
+      if set_completion_quote_character and quote
+        Reline.core.instance_variable_set(:@completion_quote_character, quote)
+        if postposing !~ /(?!\\)#{Regexp.escape(quote)}/ # closing quote
+          insert_text(quote)
+        end
+      end
+    else
+      preposing = ''
+      if break_pointer
+        preposing = @line.byteslice(0, break_pointer)
+      else
+        preposing = ''
+      end
+      target = before
+    end
+    [preposing.encode(@encoding), target.encode(@encoding), postposing.encode(@encoding)]
+  end
+
+  def confirm_multiline_termination
+    temp_buffer = @buffer_of_lines.dup
+    if @previous_line_index and @line_index == (@buffer_of_lines.size - 1)
+      temp_buffer[@previous_line_index] = @line
+    else
+      temp_buffer[@line_index] = @line
+    end
+    @confirm_multiline_termination_proc.(temp_buffer.join("\n") + "\n")
+  end
+
+  def insert_text(text)
+    width = calculate_width(text)
+    if @cursor == @cursor_max
+      @line += text
+    else
+      @line = byteinsert(@line, @byte_pointer, text)
+    end
+    @byte_pointer += text.bytesize
+    @cursor += width
+    @cursor_max += width
+  end
+
+  def delete_text(start = nil, length = nil)
+    if start.nil? and length.nil?
+      @line&.clear
+      @byte_pointer = 0
+      @cursor = 0
+      @cursor_max = 0
+    elsif not start.nil? and not length.nil?
+      if @line
+        before = @line.byteslice(0, start)
+        after = @line.byteslice(start + length, @line.bytesize)
+        @line = before + after
+        @byte_pointer = @line.bytesize if @byte_pointer > @line.bytesize
+        str = @line.byteslice(0, @byte_pointer)
+        @cursor = calculate_width(str)
+        @cursor_max = calculate_width(@line)
+      end
+    elsif start.is_a?(Range)
+      range = start
+      first = range.first
+      last = range.last
+      last = @line.bytesize - 1 if last > @line.bytesize
+      last += @line.bytesize if last < 0
+      first += @line.bytesize if first < 0
+      range = range.exclude_end? ? first...last : first..last
+      @line = @line.bytes.reject.with_index{ |c, i| range.include?(i) }.map{ |c| c.chr(Encoding::ASCII_8BIT) }.join.force_encoding(@encoding)
+      @byte_pointer = @line.bytesize if @byte_pointer > @line.bytesize
+      str = @line.byteslice(0, @byte_pointer)
+      @cursor = calculate_width(str)
+      @cursor_max = calculate_width(@line)
+    else
+      @line = @line.byteslice(0, start)
+      @byte_pointer = @line.bytesize if @byte_pointer > @line.bytesize
+      str = @line.byteslice(0, @byte_pointer)
+      @cursor = calculate_width(str)
+      @cursor_max = calculate_width(@line)
+    end
+  end
+
+  def byte_pointer=(val)
+    @byte_pointer = val
+    str = @line.byteslice(0, @byte_pointer)
+    @cursor = calculate_width(str)
+    @cursor_max = calculate_width(@line)
+  end
+
+  def whole_lines(index: @line_index, line: @line)
+    temp_lines = @buffer_of_lines.dup
+    temp_lines[index] = line
+    temp_lines
+  end
+
+  def whole_buffer
+    if @buffer_of_lines.size == 1 and @line.nil?
+      nil
+    else
+      whole_lines.join("\n")
+    end
+  end
+
+  def finished?
+    @finished
+  end
+
+  def finish
+    @finished = true
+    @config.reset
+  end
+
+  private def byteslice!(str, byte_pointer, size)
+    new_str = str.byteslice(0, byte_pointer)
+    new_str << str.byteslice(byte_pointer + size, str.bytesize)
+    [new_str, str.byteslice(byte_pointer, size)]
+  end
+
+  private def byteinsert(str, byte_pointer, other)
+    new_str = str.byteslice(0, byte_pointer)
+    new_str << other
+    new_str << str.byteslice(byte_pointer, str.bytesize)
+    new_str
+  end
+
+  private def calculate_width(str, allow_escape_code = false)
+    if allow_escape_code
+      width = 0
+      rest = str.encode(Encoding::UTF_8)
+      in_zero_width = false
+      rest.scan(WIDTH_SCANNER) do |gc|
+        case gc
+        when NON_PRINTING_START
+          in_zero_width = true
+        when NON_PRINTING_END
+          in_zero_width = false
+        when CSI_REGEXP, OSC_REGEXP
+        else
+          unless in_zero_width
+            width += Reline::Unicode.get_mbchar_width(gc)
+          end
+        end
+      end
+      width
+    else
+      str.encode(Encoding::UTF_8).grapheme_clusters.inject(0) { |w, gc|
+        w + Reline::Unicode.get_mbchar_width(gc)
+      }
+    end
+  end
+
+  private def key_delete(key)
+    if @config.editing_mode_is?(:vi_insert, :emacs)
+      ed_delete_next_char(key)
+    end
+  end
+
+  private def key_newline(key)
+    if @is_multiline
+      next_line = @line.byteslice(@byte_pointer, @line.bytesize - @byte_pointer)
+      cursor_line = @line.byteslice(0, @byte_pointer)
+      insert_new_line(cursor_line, next_line)
+      @cursor = 0
+      @check_new_auto_indent = true
+    end
+  end
+
+  private def ed_unassigned(key) end # do nothing
+
+  private def ed_insert(key)
+    if key.instance_of?(String)
+      begin
+        key.encode(Encoding::UTF_8)
+      rescue Encoding::UndefinedConversionError
+        return
+      end
+      width = Reline::Unicode.get_mbchar_width(key)
+      if @cursor == @cursor_max
+        @line += key
+      else
+        @line = byteinsert(@line, @byte_pointer, key)
+      end
+      @byte_pointer += key.bytesize
+      @cursor += width
+      @cursor_max += width
+    else
+      begin
+        key.chr.encode(Encoding::UTF_8)
+      rescue Encoding::UndefinedConversionError
+        return
+      end
+      if @cursor == @cursor_max
+        @line += key.chr
+      else
+        @line = byteinsert(@line, @byte_pointer, key.chr)
+      end
+      width = Reline::Unicode.get_mbchar_width(key.chr)
+      @byte_pointer += 1
+      @cursor += width
+      @cursor_max += width
+    end
+  end
+  alias_method :ed_digit, :ed_insert
+  alias_method :self_insert, :ed_insert
+
+  private def ed_quoted_insert(str, arg: 1)
+    @waiting_proc = proc { |key|
+      arg.times do
+        if key == "\C-j".ord or key == "\C-m".ord
+          key_newline(key)
+        else
+          ed_insert(key)
+        end
+      end
+      @waiting_proc = nil
+    }
+  end
+  alias_method :quoted_insert, :ed_quoted_insert
+
+  private def ed_next_char(key, arg: 1)
+    byte_size = Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer)
+    if (@byte_pointer < @line.bytesize)
+      mbchar = @line.byteslice(@byte_pointer, byte_size)
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor += width if width
+      @byte_pointer += byte_size
+    elsif @is_multiline and @config.editing_mode_is?(:emacs) and @byte_pointer == @line.bytesize and @line_index < @buffer_of_lines.size - 1
+      next_line = @buffer_of_lines[@line_index + 1]
+      @cursor = 0
+      @byte_pointer = 0
+      @cursor_max = calculate_width(next_line)
+      @previous_line_index = @line_index
+      @line_index += 1
+    end
+    arg -= 1
+    ed_next_char(key, arg: arg) if arg > 0
+  end
+  alias_method :forward_char, :ed_next_char
+
+  private def ed_prev_char(key, arg: 1)
+    if @cursor > 0
+      byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      mbchar = @line.byteslice(@byte_pointer, byte_size)
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor -= width
+    elsif @is_multiline and @config.editing_mode_is?(:emacs) and @byte_pointer == 0 and @line_index > 0
+      prev_line = @buffer_of_lines[@line_index - 1]
+      @cursor = calculate_width(prev_line)
+      @byte_pointer = prev_line.bytesize
+      @cursor_max = calculate_width(prev_line)
+      @previous_line_index = @line_index
+      @line_index -= 1
+    end
+    arg -= 1
+    ed_prev_char(key, arg: arg) if arg > 0
+  end
+
+  private def vi_first_print(key)
+    @byte_pointer, @cursor = Reline::Unicode.vi_first_print(@line)
+  end
+
+  private def ed_move_to_beg(key)
+    @byte_pointer = @cursor = 0
+  end
+  alias_method :beginning_of_line, :ed_move_to_beg
+
+  private def ed_move_to_end(key)
+    @byte_pointer = 0
+    @cursor = 0
+    byte_size = 0
+    while @byte_pointer < @line.bytesize
+      byte_size = Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer)
+      if byte_size > 0
+        mbchar = @line.byteslice(@byte_pointer, byte_size)
+        @cursor += Reline::Unicode.get_mbchar_width(mbchar)
+      end
+      @byte_pointer += byte_size
+    end
+  end
+  alias_method :end_of_line, :ed_move_to_end
+
+  private def generate_searcher
+    Fiber.new do |first_key|
+      prev_search_key = first_key
+      search_word = String.new(encoding: @encoding)
+      multibyte_buf = String.new(encoding: 'ASCII-8BIT')
+      last_hit = nil
+      case first_key
+      when "\C-r".ord
+        prompt_name = 'reverse-i-search'
+      when "\C-s".ord
+        prompt_name = 'i-search'
+      end
+      loop do
+        key = Fiber.yield(search_word)
+        search_again = false
+        case key
+        when -1 # determined
+          Reline.last_incremental_search = search_word
+          break
+        when "\C-h".ord, "\C-?".ord
+          grapheme_clusters = search_word.grapheme_clusters
+          if grapheme_clusters.size > 0
+            grapheme_clusters.pop
+            search_word = grapheme_clusters.join
+          end
+        when "\C-r".ord, "\C-s".ord
+          search_again = true if prev_search_key == key
+          prev_search_key = key
+        else
+          multibyte_buf << key
+          if multibyte_buf.dup.force_encoding(@encoding).valid_encoding?
+            search_word << multibyte_buf.dup.force_encoding(@encoding)
+            multibyte_buf.clear
+          end
+        end
+        hit = nil
+        if not search_word.empty? and @line_backup_in_history&.include?(search_word)
+          @history_pointer = nil
+          hit = @line_backup_in_history
+        else
+          if search_again
+            if search_word.empty? and Reline.last_incremental_search
+              search_word = Reline.last_incremental_search
+            end
+            if @history_pointer # TODO
+              case prev_search_key
+              when "\C-r".ord
+                history_pointer_base = 0
+                history = Reline::HISTORY[0..(@history_pointer - 1)]
+              when "\C-s".ord
+                history_pointer_base = @history_pointer + 1
+                history = Reline::HISTORY[(@history_pointer + 1)..-1]
+              end
+            else
+              history_pointer_base = 0
+              history = Reline::HISTORY
+            end
+          elsif @history_pointer
+            case prev_search_key
+            when "\C-r".ord
+              history_pointer_base = 0
+              history = Reline::HISTORY[0..@history_pointer]
+            when "\C-s".ord
+              history_pointer_base = @history_pointer
+              history = Reline::HISTORY[@history_pointer..-1]
+            end
+          else
+            history_pointer_base = 0
+            history = Reline::HISTORY
+          end
+          case prev_search_key
+          when "\C-r".ord
+            hit_index = history.rindex { |item|
+              item.include?(search_word)
+            }
+          when "\C-s".ord
+            hit_index = history.index { |item|
+              item.include?(search_word)
+            }
+          end
+          if hit_index
+            @history_pointer = history_pointer_base + hit_index
+            hit = Reline::HISTORY[@history_pointer]
+          end
+        end
+        case prev_search_key
+        when "\C-r".ord
+          prompt_name = 'reverse-i-search'
+        when "\C-s".ord
+          prompt_name = 'i-search'
+        end
+        if hit
+          if @is_multiline
+            @buffer_of_lines = hit.split("\n")
+            @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+            @line_index = @buffer_of_lines.size - 1
+            @line = @buffer_of_lines.last
+            @rerender_all = true
+            @searching_prompt = "(%s)`%s'" % [prompt_name, search_word]
+          else
+            @line = hit
+            @searching_prompt = "(%s)`%s': %s" % [prompt_name, search_word, hit]
+          end
+          last_hit = hit
+        else
+          if @is_multiline
+            @rerender_all = true
+            @searching_prompt = "(failed %s)`%s'" % [prompt_name, search_word]
+          else
+            @searching_prompt = "(failed %s)`%s': %s" % [prompt_name, search_word, last_hit]
+          end
+        end
+      end
+    end
+  end
+
+  private def search_history(key)
+    unless @history_pointer
+      if @is_multiline
+        @line_backup_in_history = whole_buffer
+      else
+        @line_backup_in_history = @line
+      end
+    end
+    searcher = generate_searcher
+    searcher.resume(key)
+    @searching_prompt = "(reverse-i-search)`': "
+    @waiting_proc = ->(k) {
+      case k
+      when "\C-j".ord
+        if @history_pointer
+          buffer = Reline::HISTORY[@history_pointer]
+        else
+          buffer = @line_backup_in_history
+        end
+        if @is_multiline
+          @buffer_of_lines = buffer.split("\n")
+          @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+          @line_index = @buffer_of_lines.size - 1
+          @line = @buffer_of_lines.last
+          @rerender_all = true
+        else
+          @line = buffer
+        end
+        @searching_prompt = nil
+        @waiting_proc = nil
+        @cursor_max = calculate_width(@line)
+        @cursor = @byte_pointer = 0
+        searcher.resume(-1)
+      when "\C-g".ord
+        if @is_multiline
+          @buffer_of_lines = @line_backup_in_history.split("\n")
+          @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+          @line_index = @buffer_of_lines.size - 1
+          @line = @buffer_of_lines.last
+          @rerender_all = true
+        else
+          @line = @line_backup_in_history
+        end
+        @history_pointer = nil
+        @searching_prompt = nil
+        @waiting_proc = nil
+        @line_backup_in_history = nil
+        @cursor_max = calculate_width(@line)
+        @cursor = @byte_pointer = 0
+        @rerender_all = true
+      else
+        chr = k.is_a?(String) ? k : k.chr(Encoding::ASCII_8BIT)
+        if chr.match?(/[[:print:]]/) or k == "\C-h".ord or k == "\C-?".ord or k == "\C-r".ord or k == "\C-s".ord
+          searcher.resume(k)
+        else
+          if @history_pointer
+            line = Reline::HISTORY[@history_pointer]
+          else
+            line = @line_backup_in_history
+          end
+          if @is_multiline
+            @line_backup_in_history = whole_buffer
+            @buffer_of_lines = line.split("\n")
+            @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+            @line_index = @buffer_of_lines.size - 1
+            @line = @buffer_of_lines.last
+            @rerender_all = true
+          else
+            @line_backup_in_history = @line
+            @line = line
+          end
+          @searching_prompt = nil
+          @waiting_proc = nil
+          @cursor_max = calculate_width(@line)
+          @cursor = @byte_pointer = 0
+          searcher.resume(-1)
+        end
+      end
+    }
+  end
+
+  private def ed_search_prev_history(key)
+    search_history(key)
+  end
+  alias_method :reverse_search_history, :ed_search_prev_history
+
+  private def ed_search_next_history(key)
+    search_history(key)
+  end
+  alias_method :forward_search_history, :ed_search_next_history
+
+  private def ed_prev_history(key, arg: 1)
+    if @is_multiline and @line_index > 0
+      @previous_line_index = @line_index
+      @line_index -= 1
+      return
+    end
+    if Reline::HISTORY.empty?
+      return
+    end
+    if @history_pointer.nil?
+      @history_pointer = Reline::HISTORY.size - 1
+      if @is_multiline
+        @line_backup_in_history = whole_buffer
+        @buffer_of_lines = Reline::HISTORY[@history_pointer].split("\n")
+        @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+        @line_index = @buffer_of_lines.size - 1
+        @line = @buffer_of_lines.last
+        @rerender_all = true
+      else
+        @line_backup_in_history = @line
+        @line = Reline::HISTORY[@history_pointer]
+      end
+    elsif @history_pointer.zero?
+      return
+    else
+      if @is_multiline
+        Reline::HISTORY[@history_pointer] = whole_buffer
+        @history_pointer -= 1
+        @buffer_of_lines = Reline::HISTORY[@history_pointer].split("\n")
+        @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+        @line_index = @buffer_of_lines.size - 1
+        @line = @buffer_of_lines.last
+        @rerender_all = true
+      else
+        Reline::HISTORY[@history_pointer] = @line
+        @history_pointer -= 1
+        @line = Reline::HISTORY[@history_pointer]
+      end
+    end
+    if @config.editing_mode_is?(:emacs, :vi_insert)
+      @cursor_max = @cursor = calculate_width(@line)
+      @byte_pointer = @line.bytesize
+    elsif @config.editing_mode_is?(:vi_command)
+      @byte_pointer = @cursor = 0
+      @cursor_max = calculate_width(@line)
+    end
+    arg -= 1
+    ed_prev_history(key, arg: arg) if arg > 0
+  end
+
+  private def ed_next_history(key, arg: 1)
+    if @is_multiline and @line_index < (@buffer_of_lines.size - 1)
+      @previous_line_index = @line_index
+      @line_index += 1
+      return
+    end
+    if @history_pointer.nil?
+      return
+    elsif @history_pointer == (Reline::HISTORY.size - 1)
+      if @is_multiline
+        @history_pointer = nil
+        @buffer_of_lines = @line_backup_in_history.split("\n")
+        @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+        @line_index = 0
+        @line = @buffer_of_lines.first
+        @rerender_all = true
+      else
+        @history_pointer = nil
+        @line = @line_backup_in_history
+      end
+    else
+      if @is_multiline
+        Reline::HISTORY[@history_pointer] = whole_buffer
+        @history_pointer += 1
+        @buffer_of_lines = Reline::HISTORY[@history_pointer].split("\n")
+        @buffer_of_lines = [String.new(encoding: @encoding)] if @buffer_of_lines.empty?
+        @line_index = 0
+        @line = @buffer_of_lines.first
+        @rerender_all = true
+      else
+        Reline::HISTORY[@history_pointer] = @line
+        @history_pointer += 1
+        @line = Reline::HISTORY[@history_pointer]
+      end
+    end
+    @line = '' unless @line
+    if @config.editing_mode_is?(:emacs, :vi_insert)
+      @cursor_max = @cursor = calculate_width(@line)
+      @byte_pointer = @line.bytesize
+    elsif @config.editing_mode_is?(:vi_command)
+      @byte_pointer = @cursor = 0
+      @cursor_max = calculate_width(@line)
+    end
+    arg -= 1
+    ed_next_history(key, arg: arg) if arg > 0
+  end
+
+  private def ed_newline(key)
+    if @is_multiline
+      if @config.editing_mode_is?(:vi_command)
+        if @line_index < (@buffer_of_lines.size - 1)
+          ed_next_history(key) # means cursor down
+        else
+          # should check confirm_multiline_termination to finish?
+          finish
+        end
+      else
+        if @line_index == (@buffer_of_lines.size - 1)
+          if confirm_multiline_termination
+            finish
+          else
+            key_newline(key)
+          end
+        else
+          # should check confirm_multiline_termination to finish?
+          @previous_line_index = @line_index
+          @line_index = @buffer_of_lines.size - 1
+          finish
+        end
+      end
+    else
+      if @history_pointer
+        Reline::HISTORY[@history_pointer] = @line
+        @history_pointer = nil
+      end
+      finish
+    end
+  end
+
+  private def em_delete_prev_char(key)
+    if @is_multiline and @cursor == 0 and @line_index > 0
+      @buffer_of_lines[@line_index] = @line
+      @cursor = calculate_width(@buffer_of_lines[@line_index - 1])
+      @byte_pointer = @buffer_of_lines[@line_index - 1].bytesize
+      @buffer_of_lines[@line_index - 1] += @buffer_of_lines.delete_at(@line_index)
+      @line_index -= 1
+      @line = @buffer_of_lines[@line_index]
+      @cursor_max = calculate_width(@line)
+      @rerender_all = true
+    elsif @cursor > 0
+      byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      @line, mbchar = byteslice!(@line, @byte_pointer, byte_size)
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor -= width
+      @cursor_max -= width
+    end
+  end
+  alias_method :backward_delete_char, :em_delete_prev_char
+
+  private def ed_kill_line(key)
+    if @line.bytesize > @byte_pointer
+      @line, deleted = byteslice!(@line, @byte_pointer, @line.bytesize - @byte_pointer)
+      @byte_pointer = @line.bytesize
+      @cursor = @cursor_max = calculate_width(@line)
+      @kill_ring.append(deleted)
+    elsif @is_multiline and @byte_pointer == @line.bytesize and @buffer_of_lines.size > @line_index + 1
+      @cursor = calculate_width(@line)
+      @byte_pointer = @line.bytesize
+      @line += @buffer_of_lines.delete_at(@line_index + 1)
+      @cursor_max = calculate_width(@line)
+      @buffer_of_lines[@line_index] = @line
+      @rerender_all = true
+      @rest_height += 1
+    end
+  end
+
+  private def em_kill_line(key)
+    if @byte_pointer > 0
+      @line, deleted = byteslice!(@line, 0, @byte_pointer)
+      @byte_pointer = 0
+      @kill_ring.append(deleted, true)
+      @cursor_max = calculate_width(@line)
+      @cursor = 0
+    end
+  end
+
+  private def em_delete(key)
+    if (not @is_multiline and @line.empty?) or (@is_multiline and @line.empty? and @buffer_of_lines.size == 1)
+      @line = nil
+      if @buffer_of_lines.size > 1
+        scroll_down(@highest_in_all - @first_line_started_from)
+      end
+      Reline::IOGate.move_cursor_column(0)
+      @eof = true
+      finish
+    elsif @byte_pointer < @line.bytesize
+      splitted_last = @line.byteslice(@byte_pointer, @line.bytesize)
+      mbchar = splitted_last.grapheme_clusters.first
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor_max -= width
+      @line, = byteslice!(@line, @byte_pointer, mbchar.bytesize)
+    elsif @is_multiline and @byte_pointer == @line.bytesize and @buffer_of_lines.size > @line_index + 1
+      @cursor = calculate_width(@line)
+      @byte_pointer = @line.bytesize
+      @line += @buffer_of_lines.delete_at(@line_index + 1)
+      @cursor_max = calculate_width(@line)
+      @buffer_of_lines[@line_index] = @line
+      @rerender_all = true
+      @rest_height += 1
+    end
+  end
+  alias_method :delete_char, :em_delete
+
+  private def em_delete_or_list(key)
+    if @line.empty? or @byte_pointer < @line.bytesize
+      em_delete(key)
+    else # show completed list
+      result = call_completion_proc
+      if result.is_a?(Array)
+        complete(result, true)
+      end
+    end
+  end
+  alias_method :delete_char_or_list, :em_delete_or_list
+
+  private def em_yank(key)
+    yanked = @kill_ring.yank
+    if yanked
+      @line = byteinsert(@line, @byte_pointer, yanked)
+      yanked_width = calculate_width(yanked)
+      @cursor += yanked_width
+      @cursor_max += yanked_width
+      @byte_pointer += yanked.bytesize
+    end
+  end
+
+  private def em_yank_pop(key)
+    yanked, prev_yank = @kill_ring.yank_pop
+    if yanked
+      prev_yank_width = calculate_width(prev_yank)
+      @cursor -= prev_yank_width
+      @cursor_max -= prev_yank_width
+      @byte_pointer -= prev_yank.bytesize
+      @line, = byteslice!(@line, @byte_pointer, prev_yank.bytesize)
+      @line = byteinsert(@line, @byte_pointer, yanked)
+      yanked_width = calculate_width(yanked)
+      @cursor += yanked_width
+      @cursor_max += yanked_width
+      @byte_pointer += yanked.bytesize
+    end
+  end
+
+  private def ed_clear_screen(key)
+    @cleared = true
+  end
+  alias_method :clear_screen, :ed_clear_screen
+
+  private def em_next_word(key)
+    if @line.bytesize > @byte_pointer
+      byte_size, width = Reline::Unicode.em_forward_word(@line, @byte_pointer)
+      @byte_pointer += byte_size
+      @cursor += width
+    end
+  end
+  alias_method :forward_word, :em_next_word
+
+  private def ed_prev_word(key)
+    if @byte_pointer > 0
+      byte_size, width = Reline::Unicode.em_backward_word(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      @cursor -= width
+    end
+  end
+  alias_method :backward_word, :ed_prev_word
+
+  private def em_delete_next_word(key)
+    if @line.bytesize > @byte_pointer
+      byte_size, width = Reline::Unicode.em_forward_word(@line, @byte_pointer)
+      @line, word = byteslice!(@line, @byte_pointer, byte_size)
+      @kill_ring.append(word)
+      @cursor_max -= width
+    end
+  end
+
+  private def ed_delete_prev_word(key)
+    if @byte_pointer > 0
+      byte_size, width = Reline::Unicode.em_backward_word(@line, @byte_pointer)
+      @line, word = byteslice!(@line, @byte_pointer - byte_size, byte_size)
+      @kill_ring.append(word, true)
+      @byte_pointer -= byte_size
+      @cursor -= width
+      @cursor_max -= width
+    end
+  end
+
+  private def ed_transpose_chars(key)
+    if @byte_pointer > 0
+      if @cursor_max > @cursor
+        byte_size = Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer)
+        mbchar = @line.byteslice(@byte_pointer, byte_size)
+        width = Reline::Unicode.get_mbchar_width(mbchar)
+        @cursor += width
+        @byte_pointer += byte_size
+      end
+      back1_byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer)
+      if (@byte_pointer - back1_byte_size) > 0
+        back2_byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer - back1_byte_size)
+        back2_pointer = @byte_pointer - back1_byte_size - back2_byte_size
+        @line, back2_mbchar = byteslice!(@line, back2_pointer, back2_byte_size)
+        @line = byteinsert(@line, @byte_pointer - back2_byte_size, back2_mbchar)
+      end
+    end
+  end
+  alias_method :transpose_chars, :ed_transpose_chars
+
+  private def ed_transpose_words(key)
+    left_word_start, middle_start, right_word_start, after_start = Reline::Unicode.ed_transpose_words(@line, @byte_pointer)
+    before = @line.byteslice(0, left_word_start)
+    left_word = @line.byteslice(left_word_start, middle_start - left_word_start)
+    middle = @line.byteslice(middle_start, right_word_start - middle_start)
+    right_word = @line.byteslice(right_word_start, after_start - right_word_start)
+    after = @line.byteslice(after_start, @line.bytesize - after_start)
+    return if left_word.empty? or right_word.empty?
+    @line = before + right_word + middle + left_word + after
+    from_head_to_left_word = before + right_word + middle + left_word
+    @byte_pointer = from_head_to_left_word.bytesize
+    @cursor = calculate_width(from_head_to_left_word)
+  end
+  alias_method :transpose_words, :ed_transpose_words
+
+  private def em_capitol_case(key)
+    if @line.bytesize > @byte_pointer
+      byte_size, _, new_str = Reline::Unicode.em_forward_word_with_capitalization(@line, @byte_pointer)
+      before = @line.byteslice(0, @byte_pointer)
+      after = @line.byteslice((@byte_pointer + byte_size)..-1)
+      @line = before + new_str + after
+      @byte_pointer += new_str.bytesize
+      @cursor += calculate_width(new_str)
+    end
+  end
+  alias_method :capitalize_word, :em_capitol_case
+
+  private def em_lower_case(key)
+    if @line.bytesize > @byte_pointer
+      byte_size, = Reline::Unicode.em_forward_word(@line, @byte_pointer)
+      part = @line.byteslice(@byte_pointer, byte_size).grapheme_clusters.map { |mbchar|
+        mbchar =~ /[A-Z]/ ? mbchar.downcase : mbchar
+      }.join
+      rest = @line.byteslice((@byte_pointer + byte_size)..-1)
+      @line = @line.byteslice(0, @byte_pointer) + part
+      @byte_pointer = @line.bytesize
+      @cursor = calculate_width(@line)
+      @cursor_max = @cursor + calculate_width(rest)
+      @line += rest
+    end
+  end
+  alias_method :downcase_word, :em_lower_case
+
+  private def em_upper_case(key)
+    if @line.bytesize > @byte_pointer
+      byte_size, = Reline::Unicode.em_forward_word(@line, @byte_pointer)
+      part = @line.byteslice(@byte_pointer, byte_size).grapheme_clusters.map { |mbchar|
+        mbchar =~ /[a-z]/ ? mbchar.upcase : mbchar
+      }.join
+      rest = @line.byteslice((@byte_pointer + byte_size)..-1)
+      @line = @line.byteslice(0, @byte_pointer) + part
+      @byte_pointer = @line.bytesize
+      @cursor = calculate_width(@line)
+      @cursor_max = @cursor + calculate_width(rest)
+      @line += rest
+    end
+  end
+  alias_method :upcase_word, :em_upper_case
+
+  private def em_kill_region(key)
+    if @byte_pointer > 0
+      byte_size, width = Reline::Unicode.em_big_backward_word(@line, @byte_pointer)
+      @line, deleted = byteslice!(@line, @byte_pointer - byte_size, byte_size)
+      @byte_pointer -= byte_size
+      @cursor -= width
+      @cursor_max -= width
+      @kill_ring.append(deleted)
+    end
+  end
+
+  private def copy_for_vi(text)
+    if @config.editing_mode_is?(:vi_insert) or @config.editing_mode_is?(:vi_command)
+      @vi_clipboard = text
+    end
+  end
+
+  private def vi_insert(key)
+    @config.editing_mode = :vi_insert
+  end
+
+  private def vi_add(key)
+    @config.editing_mode = :vi_insert
+    ed_next_char(key)
+  end
+
+  private def vi_command_mode(key)
+    ed_prev_char(key)
+    @config.editing_mode = :vi_command
+  end
+  alias_method :backward_char, :ed_prev_char
+
+  private def vi_next_word(key, arg: 1)
+    if @line.bytesize > @byte_pointer
+      byte_size, width = Reline::Unicode.vi_forward_word(@line, @byte_pointer)
+      @byte_pointer += byte_size
+      @cursor += width
+    end
+    arg -= 1
+    vi_next_word(key, arg: arg) if arg > 0
+  end
+
+  private def vi_prev_word(key, arg: 1)
+    if @byte_pointer > 0
+      byte_size, width = Reline::Unicode.vi_backward_word(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      @cursor -= width
+    end
+    arg -= 1
+    vi_prev_word(key, arg: arg) if arg > 0
+  end
+
+  private def vi_end_word(key, arg: 1)
+    if @line.bytesize > @byte_pointer
+      byte_size, width = Reline::Unicode.vi_forward_end_word(@line, @byte_pointer)
+      @byte_pointer += byte_size
+      @cursor += width
+    end
+    arg -= 1
+    vi_end_word(key, arg: arg) if arg > 0
+  end
+
+  private def vi_next_big_word(key, arg: 1)
+    if @line.bytesize > @byte_pointer
+      byte_size, width = Reline::Unicode.vi_big_forward_word(@line, @byte_pointer)
+      @byte_pointer += byte_size
+      @cursor += width
+    end
+    arg -= 1
+    vi_next_big_word(key, arg: arg) if arg > 0
+  end
+
+  private def vi_prev_big_word(key, arg: 1)
+    if @byte_pointer > 0
+      byte_size, width = Reline::Unicode.vi_big_backward_word(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      @cursor -= width
+    end
+    arg -= 1
+    vi_prev_big_word(key, arg: arg) if arg > 0
+  end
+
+  private def vi_end_big_word(key, arg: 1)
+    if @line.bytesize > @byte_pointer
+      byte_size, width = Reline::Unicode.vi_big_forward_end_word(@line, @byte_pointer)
+      @byte_pointer += byte_size
+      @cursor += width
+    end
+    arg -= 1
+    vi_end_big_word(key, arg: arg) if arg > 0
+  end
+
+  private def vi_delete_prev_char(key)
+    if @is_multiline and @cursor == 0 and @line_index > 0
+      @buffer_of_lines[@line_index] = @line
+      @cursor = calculate_width(@buffer_of_lines[@line_index - 1])
+      @byte_pointer = @buffer_of_lines[@line_index - 1].bytesize
+      @buffer_of_lines[@line_index - 1] += @buffer_of_lines.delete_at(@line_index)
+      @line_index -= 1
+      @line = @buffer_of_lines[@line_index]
+      @cursor_max = calculate_width(@line)
+      @rerender_all = true
+    elsif @cursor > 0
+      byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer)
+      @byte_pointer -= byte_size
+      @line, mbchar = byteslice!(@line, @byte_pointer, byte_size)
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor -= width
+      @cursor_max -= width
+    end
+  end
+
+  private def vi_insert_at_bol(key)
+    ed_move_to_beg(key)
+    @config.editing_mode = :vi_insert
+  end
+
+  private def vi_add_at_eol(key)
+    ed_move_to_end(key)
+    @config.editing_mode = :vi_insert
+  end
+
+  private def ed_delete_prev_char(key, arg: 1)
+    deleted = ''
+    arg.times do
+      if @cursor > 0
+        byte_size = Reline::Unicode.get_prev_mbchar_size(@line, @byte_pointer)
+        @byte_pointer -= byte_size
+        @line, mbchar = byteslice!(@line, @byte_pointer, byte_size)
+        deleted.prepend(mbchar)
+        width = Reline::Unicode.get_mbchar_width(mbchar)
+        @cursor -= width
+        @cursor_max -= width
+      end
+    end
+    copy_for_vi(deleted)
+  end
+
+  private def vi_zero(key)
+    @byte_pointer = 0
+    @cursor = 0
+  end
+
+  private def vi_change_meta(key)
+    @waiting_operator_proc = proc { |cursor_diff, byte_pointer_diff|
+      if byte_pointer_diff > 0
+        @line, cut = byteslice!(@line, @byte_pointer, byte_pointer_diff)
+      elsif byte_pointer_diff < 0
+        @line, cut = byteslice!(@line, @byte_pointer + byte_pointer_diff, -byte_pointer_diff)
+      end
+      copy_for_vi(cut)
+      @cursor += cursor_diff if cursor_diff < 0
+      @cursor_max -= cursor_diff.abs
+      @byte_pointer += byte_pointer_diff if byte_pointer_diff < 0
+      @config.editing_mode = :vi_insert
+    }
+  end
+
+  private def vi_delete_meta(key)
+    @waiting_operator_proc = proc { |cursor_diff, byte_pointer_diff|
+      if byte_pointer_diff > 0
+        @line, cut = byteslice!(@line, @byte_pointer, byte_pointer_diff)
+      elsif byte_pointer_diff < 0
+        @line, cut = byteslice!(@line, @byte_pointer + byte_pointer_diff, -byte_pointer_diff)
+      end
+      copy_for_vi(cut)
+      @cursor += cursor_diff if cursor_diff < 0
+      @cursor_max -= cursor_diff.abs
+      @byte_pointer += byte_pointer_diff if byte_pointer_diff < 0
+    }
+  end
+
+  private def vi_yank(key)
+  end
+
+  private def vi_list_or_eof(key)
+    if (not @is_multiline and @line.empty?) or (@is_multiline and @line.empty? and @buffer_of_lines.size == 1)
+      @line = nil
+      if @buffer_of_lines.size > 1
+        scroll_down(@highest_in_all - @first_line_started_from)
+      end
+      Reline::IOGate.move_cursor_column(0)
+      @eof = true
+      finish
+    else
+      ed_newline(key)
+    end
+  end
+  alias_method :vi_end_of_transmission, :vi_list_or_eof
+  alias_method :vi_eof_maybe, :vi_list_or_eof
+
+  private def ed_delete_next_char(key, arg: 1)
+    byte_size = Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer)
+    unless @line.empty? || byte_size == 0
+      @line, mbchar = byteslice!(@line, @byte_pointer, byte_size)
+      copy_for_vi(mbchar)
+      width = Reline::Unicode.get_mbchar_width(mbchar)
+      @cursor_max -= width
+      if @cursor > 0 and @cursor >= @cursor_max
+        @byte_pointer -= byte_size
+        @cursor -= width
+      end
+    end
+    arg -= 1
+    ed_delete_next_char(key, arg: arg) if arg > 0
+  end
+
+  private def vi_to_history_line(key)
+    if Reline::HISTORY.empty?
+      return
+    end
+    if @history_pointer.nil?
+      @history_pointer = 0
+      @line_backup_in_history = @line
+      @line = Reline::HISTORY[@history_pointer]
+      @cursor_max = calculate_width(@line)
+      @cursor = 0
+      @byte_pointer = 0
+    elsif @history_pointer.zero?
+      return
+    else
+      Reline::HISTORY[@history_pointer] = @line
+      @history_pointer = 0
+      @line = Reline::HISTORY[@history_pointer]
+      @cursor_max = calculate_width(@line)
+      @cursor = 0
+      @byte_pointer = 0
+    end
+  end
+
+  private def vi_histedit(key)
+    path = Tempfile.open { |fp|
+      fp.write @line
+      fp.path
+    }
+    system("#{ENV['EDITOR']} #{path}")
+    @line = Pathname.new(path).read
+    finish
+  end
+
+  private def vi_paste_prev(key, arg: 1)
+    if @vi_clipboard.size > 0
+      @line = byteinsert(@line, @byte_pointer, @vi_clipboard)
+      @cursor_max += calculate_width(@vi_clipboard)
+      cursor_point = @vi_clipboard.grapheme_clusters[0..-2].join
+      @cursor += calculate_width(cursor_point)
+      @byte_pointer += cursor_point.bytesize
+    end
+    arg -= 1
+    vi_paste_prev(key, arg: arg) if arg > 0
+  end
+
+  private def vi_paste_next(key, arg: 1)
+    if @vi_clipboard.size > 0
+      byte_size = Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer)
+      @line = byteinsert(@line, @byte_pointer + byte_size, @vi_clipboard)
+      @cursor_max += calculate_width(@vi_clipboard)
+      @cursor += calculate_width(@vi_clipboard)
+      @byte_pointer += @vi_clipboard.bytesize
+    end
+    arg -= 1
+    vi_paste_next(key, arg: arg) if arg > 0
+  end
+
+  private def ed_argument_digit(key)
+    if @vi_arg.nil?
+      unless key.chr.to_i.zero?
+        @vi_arg = key.chr.to_i
+      end
+    else
+      @vi_arg = @vi_arg * 10 + key.chr.to_i
+    end
+  end
+
+  private def vi_to_column(key, arg: 0)
+    @byte_pointer, @cursor = @line.grapheme_clusters.inject([0, 0]) { |total, gc|
+      # total has [byte_size, cursor]
+      mbchar_width = Reline::Unicode.get_mbchar_width(gc)
+      if (total.last + mbchar_width) >= arg
+        break total
+      elsif (total.last + mbchar_width) >= @cursor_max
+        break total
+      else
+        total = [total.first + gc.bytesize, total.last + mbchar_width]
+        total
+      end
+    }
+  end
+
+  private def vi_replace_char(key, arg: 1)
+    @waiting_proc = ->(k) {
+      if arg == 1
+        byte_size = Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer)
+        before = @line.byteslice(0, @byte_pointer)
+        remaining_point = @byte_pointer + byte_size
+        after = @line.byteslice(remaining_point, @line.size - remaining_point)
+        @line = before + k.chr + after
+        @cursor_max = calculate_width(@line)
+        @waiting_proc = nil
+      elsif arg > 1
+        byte_size = 0
+        arg.times do
+          byte_size += Reline::Unicode.get_next_mbchar_size(@line, @byte_pointer + byte_size)
+        end
+        before = @line.byteslice(0, @byte_pointer)
+        remaining_point = @byte_pointer + byte_size
+        after = @line.byteslice(remaining_point, @line.size - remaining_point)
+        replaced = k.chr * arg
+        @line = before + replaced + after
+        @byte_pointer += replaced.bytesize
+        @cursor += calculate_width(replaced)
+        @cursor_max = calculate_width(@line)
+        @waiting_proc = nil
+      end
+    }
+  end
+
+  private def vi_next_char(key, arg: 1)
+    @waiting_proc = ->(key_for_proc) { search_next_char(key_for_proc, arg) }
+  end
+
+  private def vi_to_next_char(key, arg: 1)
+    @waiting_proc = ->(key_for_proc) { search_next_char(key_for_proc, arg, true) }
+  end
+
+  private def search_next_char(key, arg, need_prev_char = false)
+    if key.instance_of?(String)
+      inputed_char = key
+    else
+      inputed_char = key.chr
+    end
+    prev_total = nil
+    total = nil
+    found = false
+    @line.byteslice(@byte_pointer..-1).grapheme_clusters.each do |mbchar|
+      # total has [byte_size, cursor]
+      unless total
+        # skip cursor point
+        width = Reline::Unicode.get_mbchar_width(mbchar)
+        total = [mbchar.bytesize, width]
+      else
+        if inputed_char == mbchar
+          arg -= 1
+          if arg.zero?
+            found = true
+            break
+          end
+        end
+        width = Reline::Unicode.get_mbchar_width(mbchar)
+        prev_total = total
+        total = [total.first + mbchar.bytesize, total.last + width]
+      end
+    end
+    if not need_prev_char and found and total
+      byte_size, width = total
+      @byte_pointer += byte_size
+      @cursor += width
+    elsif need_prev_char and found and prev_total
+      byte_size, width = prev_total
+      @byte_pointer += byte_size
+      @cursor += width
+    end
+    @waiting_proc = nil
+  end
+
+  private def vi_prev_char(key, arg: 1)
+    @waiting_proc = ->(key_for_proc) { search_prev_char(key_for_proc, arg) }
+  end
+
+  private def vi_to_prev_char(key, arg: 1)
+    @waiting_proc = ->(key_for_proc) { search_prev_char(key_for_proc, arg, true) }
+  end
+
+  private def search_prev_char(key, arg, need_next_char = false)
+    if key.instance_of?(String)
+      inputed_char = key
+    else
+      inputed_char = key.chr
+    end
+    prev_total = nil
+    total = nil
+    found = false
+    @line.byteslice(0..@byte_pointer).grapheme_clusters.reverse_each do |mbchar|
+      # total has [byte_size, cursor]
+      unless total
+        # skip cursor point
+        width = Reline::Unicode.get_mbchar_width(mbchar)
+        total = [mbchar.bytesize, width]
+      else
+        if inputed_char == mbchar
+          arg -= 1
+          if arg.zero?
+            found = true
+            break
+          end
+        end
+        width = Reline::Unicode.get_mbchar_width(mbchar)
+        prev_total = total
+        total = [total.first + mbchar.bytesize, total.last + width]
+      end
+    end
+    if not need_next_char and found and total
+      byte_size, width = total
+      @byte_pointer -= byte_size
+      @cursor -= width
+    elsif need_next_char and found and prev_total
+      byte_size, width = prev_total
+      @byte_pointer -= byte_size
+      @cursor -= width
+    end
+    @waiting_proc = nil
+  end
+
+  private def vi_join_lines(key, arg: 1)
+    if @is_multiline and @buffer_of_lines.size > @line_index + 1
+      @cursor = calculate_width(@line)
+      @byte_pointer = @line.bytesize
+      @line += ' ' + @buffer_of_lines.delete_at(@line_index + 1).lstrip
+      @cursor_max = calculate_width(@line)
+      @buffer_of_lines[@line_index] = @line
+      @rerender_all = true
+      @rest_height += 1
+    end
+    arg -= 1
+    vi_join_lines(key, arg: arg) if arg > 0
+  end
+
+  private def em_set_mark(key)
+    @mark_pointer = [@byte_pointer, @line_index]
+  end
+  alias_method :set_mark, :em_set_mark
+
+  private def em_exchange_mark(key)
+    new_pointer = [@byte_pointer, @line_index]
+    @previous_line_index = @line_index
+    @byte_pointer, @line_index = @mark_pointer
+    @byte_pointer, @line_index = @mark_pointer
+    @cursor = calculate_width(@line.byteslice(0, @byte_pointer))
+    @cursor_max = calculate_width(@line)
+    @mark_pointer = new_pointer
+  end
+  alias_method :exchange_point_and_mark, :em_exchange_mark
+end