vimで、カーソル行の 1文字 を検索して飛ぶコマンドがとても便利なのでEmacsでもできる限り再現しようと試みた。 M-j 押した後、次に押した文字がカーソルより右にあればそこに飛ぶ。 M-k 押した後、次に押した文字がカーソルより左にあればそこに飛ぶ。 M-u は前回のコマンドを繰り返す。 (defvar vimlike-f-recent-char nil) (defvar vimlike-f-recent-func nil) (defun vimlike-f (char) "search to forward char into current line and move point (vim 'f' command)" (interactive "cSearch to forward char: ") (when (= (char-after (point)) char) (for