>>383
なんとかできました．ありがとうございます．
(bind-key "C-S-f" '(lambda ()
(interactive)
(if (or (bolp) (eolp))
(forward-char 10)
(progn
(save-restriction
(narrow-to-region (line-beginning-position)
(line-end-position))
(forward-char 10))))))