🚀 go-pugleaf

難波です。

IMAI Hidetoshi <hidepin@infonets.hiroshima-u.ac.jp> さん writes:

> というわけで、ちゃんと
> "Mark set" と表示されますし
> "C-SPC runs the command set-mark-command" と表示されます。
> 
> なにもロードしない場合ですと、C-n は next-line C-p は previous-line
> に割り当てられています。
> 
> 私の考えでは、emacs,mule と xemacs の関数でことなる点があるの
> ではと思っています。
> (lisp に詳しくないので自信はないですが)

手元の cdrom に xemacs-21.1.10 があったので make して試してみました
(20.4 以来初)。

症状を確認しました。ずいぶん違うんだなあ。


対策その１としては、C-w する前に C-x C-x C-x C-x と C-x を４発打つ、
というのを発見しました。これは現実的ではありませんね。だけどこれが有効、
というところからして emacs ユーザには不思議。

対策その２。おそらく xemacs 的な正しいやり方ではないと思うのですが、

(defun goddamn-xemacs-line-move (arg)
  (let (cmd)
    (cond ((< arg 0) (setq cmd 'previous-line
			   arg (- arg)))
	  (t (setq cmd 'next-line)))
    (while (> arg 0)
      (call-interactively cmd)
      (setq arg (1- arg)))))

を書き足して、smooth-scroll-up 中に１個所ある

(line-move arg) を
(goddamn-xemacs-line-move arg)

に書き換えてください。

対策その３。transient-mark-mode (と云わないのかもしれないが)を解除する、
というのもあるのかしら？ でも、ソースディレクトリで src/xemacs を動か
しただけなので何だかやり方が判りません。そもそも transient という単語
すらapropos に掛からない。ソースディレクトリもやけに小さいようだったの
で、展開すべきものを全部開いてなかったのかもしれません。

> > emacs では transient-mark-mode などを設定していない限り指定した範囲は
> > 特別表示されません。この点は今は問題にしなくていいでしょう。
> > また、たとえ、transient-mark-mode を使ったとしても手元では
> > smooth-scroll-up/down は意図した通りに動きます。
> > 
> > smooth-scroll-up/down は要するに手で
> > 
> >     scroll-up()
> >     line-move() (next-line の要部)
> > 
> > を呼ぶのと同じ処理、および
> > 
> >     (setq this-command 'next-line)
> > 
> > を実行しているだけのものです。このような処理で mark-ring が壊れるとは
> > 思えないんですが xemacs では何か起きるのでしょうかねえ。

mark の扱いに関してはずいぶん違うようですね。本当に interactively に
next-line を呼ぶしか方法がないんでしょうか？ だとしたらプログラマとしては
なんか非常に面倒に感じてしまうな（たぶん、もっと xemacs 的な正しい方法が
あるんでしょうね）。ひょっとして、

  (setq this-command 'next-line)

では不十分、というそっちの問題だったのかしら…？。

２個の mule と emacs-20, 21 を入れてあって、これ以上 emacs を増やした
くないのと、もはや私には今更xemacs に手を出すメリットが無さそうなので
(21 もある事だし)、xemacs の話題に口を狭むのは以後遠慮する事といたしま
す。この位のちょっとことでもずいぶん違うので、自分の書くものについても
全て xemacs では動きません、というニュアンスで話すことにします。

--
難波清一＠東京西東京市 (http://www.asahi-net.or.jp/~pi9s-nnb/)
NAMBA Seiichi <sn@asahi-net.email.ne.jp>