0

VIM "super *"\ shift-mouse1 検索のように、検索にマウスを使用しようとしています。

ハイライト記号モードを使用して、キーボード検索の目的の動作を (ほぼ) 取得しましたが、マウスで同じことを行う方法が見つかりません。私は試した：

(require 'highlight-symbol)
(global-set-key [(control f3)] 'highlight-symbol-at-point)// <- works for the keyboard
(global-set-key [(control shift mouse1)] 'highlight-symbol-at-point)

しかし、Ctrl-Shift-Mouse1 を試しているときは、マウスの現在の位置ではなく、カーソルの現在の位置が検索されます。関数を使用するためにマウスの現在の位置を取得する方法はありますか? をhighlight-symbol使用してthings-at-pointいますが、マウス用の同様のパッケージが見つかりませんでした。

4

1 に答える 1

0

このコードは、探していることを実行する可能性があります。イベントをキャプチャする必要があることに注意してください(interactive "e")。

(global-set-key [(control shift mouse-1)]
                (lambda (event)
                  (interactive "e")
                  (save-excursion
                    (goto-char (posn-point (event-start event)))
                    (highlight-symbol-at-point))))

また、mouse1... ymmv の代わりに mouse-1 を使用する必要がありました。

于 2013-07-02T15:41:42.807 に答える