以下のような設定に，行頭・行末にカーソルがきたら行きすぎずに止まるを加えたいです．教えてください orz
(bind-key "C-S-f" '(lambda ()
(interactive)
(forward-char 10)))
(bind-key "C-S-b" '(lambda ()
(interactive)
(backward-char 10)))