[linux-users:50051] Re: XEmacsのカーソル移動

[makotoo2 _at_ xxxxxxxxxxxxxxxx]

大津です。小松さんありがとうございます。
さっそく使わせて頂いております。ものすごく便利ですね。
この方法だとフォントを変更してもずれないし。

> 面白そうだったのと, 「ちょっとずれる」という言葉に触発されて, 自分でも書
> いてみました.
>
> # 思ったより短くなって, ちょっとうれしかったり. (^^)
>
>------------------------------------------------------------------------
> (defun my-next-line ()
>   (interactive)
>   (my-line-move 1))
> 
> (defun my-line-move (arg)
>   (if (not (or (eq last-command 'next-line)
> 	       (eq last-command 'previous-line)
> 	       (eq last-command 'my-next-line)
> 	       (eq last-command 'my-previous-line)))
>       (setq temporary-goal-column (% (current-column) (1- (window-width)))))
>   (vertical-motion arg)
>   (if (> (% (move-to-column 
> 	     (+ (current-column) 
> 		(min temporary-goal-column (- (window-width) 2))))
> 	    (1- (window-width)))
> 	 temporary-goal-column)
>       (forward-char -1)))
> ------------------------------------------------------------------------