17/05/07 00:48:15.40 .net
>>391
「次の行」が10文字未満だとその行を通り過ぎるね
もし各行で必ず止まるようにしたければ多分こんな感じ
(defun my-forward-char-n (n)
(when (eolp)
(forward-char 1)
(setq n (1- n)))
(while (and (not (eolp)) (not (zerop n)))
(forward-char 1)
(setq n (1- n))))
(defun my-backward-char-n (n)
(when (bolp)
(backward-char 1)
(setq n (1- n)))
(while (and (not (bolp)) (not (zerop n)))
(backward-char 1)
(setq n (1- n))))
(bind-key "C-S-f" (lambda () (interactive) (my-forward-char-n 10)))
(bind-key "C-S-b" (lambda () (interactive) (my-backward-char-n 10)))