🚀 go-pugleaf

ソニーの山岡です。

>>>>> In article <1995Nov9.030013.5018@tk.hm.rd.sanyo.co.jp>,
>>>>>   ishikawa@tk.hm.rd.sanyo.co.jp (Kazuhito Ishikawa) writes:

> [Q.1]
> Mule を Ｘ上で使用している時に、Muleウインドウ上でマウスをクリックすると
> クリックしたときのマウスカーソルの位置に入力カーソルが移動してしまいます。
> 同様に、マウスでカット＆ペーストするとマウスカーソルのある位置にペースト
> されてしまいます。
> これを、Kterm で Mule を使用している時の、操作性と合わせる用にカスタマイズ
> する方法はありませんでしょうか？

  こういうのを ~/.emacs に書いておいたらいかがでしょうか。
  一応 `mule -q' で確認済みです。

;---------------------------------------------------------------------
(setq mouse-yank-at-point t)

(and (not (fboundp 'orig::mouse-drag-region))
     (fset 'orig::mouse-drag-region
	   (symbol-function 'mouse-drag-region)))

(defun mouse-drag-region-not-set-point (start-event)
  (interactive "e")
  (let (pos)
    (save-excursion
      (save-window-excursion
	(orig::mouse-drag-region start-event)
	(setq pos (point))
	))
    (and (eq (posn-point (event-start start-event)) pos)
	 (mouse-set-point start-event))))

(fset 'mouse-drag-region
      (symbol-function 'mouse-drag-region-not-set-point))
;---------------------------------------------------------------------

  実は同じ機能のものを以前から使っていたのですが、あまりに稚拙だったの
  で、上記のコードはたった今書き直したばかりです (^_^;;)。
-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
MD Dep., Personal A&V Products Div., Consumer A&V Products Company,
Sony Corporation, Tokyo, Japan.