07/04/28 23:19:02 U0+rV8360
>>558
winkey派の自分としてはこんなのとか。
;; セレクションを設定する
(defvar *my-selection-set-separate-char* " \"()\n｡-､、-．‘-】")
(defun my-selection-set ()
(interactive)
(let ((separate-char (compile-regexp
(format nil "[~A]" *my-selection-set-separate-char*))))
(or (not (looking-at separate-char))
(save-excursion (forward-char -1)
(looking-at separate-char))
(forward-char -1))
(if (eq *last-command* 'my-selection-set)
(when (= *last-mouse-click-count* 5)
(goto-virtual-line *last-mouse-line*)
(goto-virtual-column *last-mouse-column*)
(setq *last-mouse-click-count* 0))
(setq *last-mouse-click-count* 1
*last-mouse-line* (current-virtual-line-number)
*last-mouse-column* (current-virtual-column)))
(incf *last-mouse-click-count*)
(mouse-left-press)))
(global-set-key #\M-s 'my-selection-set)
使ってないが、surroundという拡張だともっと高度なことができるらしい。