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

[Hiroyuki Komatsu <j6396036 _at_ xxxxxxxxxxxxxxxxx>]

小松@東京理科大です.
# キリン本, 買ってしまった.

From: makotoo2 _at_ ca2.so-net.ne.jp
Subject: [linux-users:49999] Re: XEmacsのカーソル移動
Date: Mon, 29 Mar 1999 19:13:11 +0900

> > > XEmacsでのカーソルの移動について教えてください。
> > > 普通、ワードラップしている行で上下の矢印キーを押すと、
> > > 実際の次の行にカーソルが移動してしまいます。
> > > これを一般的なエディタのように、見掛け上の次の行に移動
> > > させるようにする設定は可能でしょうか？

> ありがとうございます。XEmacsだとちょっとずれたりしますが
> とても便利です。みんなに教えてあげよう。

面白そうだったのと, 「ちょっとずれる」という言葉に触発されて, 自分でも書
いてみました.
# 思ったより短くなって, ちょっとうれしかったり. (^^)

------------------------------------------------------------------------
(defun my-previous-line ()
  (interactive)
  (my-line-move -1))

(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)))
------------------------------------------------------------------------

.emacs に次のように追加して下さい. (蛇足でしょうが (^^; )

(global-set-key "\C-p" 'my-previous-line)
(global-set-key "\C-n" 'my-next-line)

XEmacs 特化でいいかなと何も考えずに書いたのですが, Emacs19, Emacs20 でも
ちゃんと動きました.

マイナーモードにしようと思っているんですが, アルゴリスム的には同じなんで,
とりあえず公開します. ごてごてとデコレーションしたものが完成したら, また
お知らせさせていただきます.

<大事>
苦情, 感想, 要望, なんでもお待ちしております.
</大事>


                                                             小松 弘幸
                                           -----------------------------
                                                        xina _at_ TAHOO.ORG