ミニバッファからマウスで抜け(その３)

himadatenodeの日記 - ミニバッファからマウスで抜けても(その２)の続き。
この前書いたやつだと、ミニバッファにキャレットがあるときにミニバッファをクリックすると消えてしまったのに気づいたので、多少修正。

(defun my-mouse-left-press()
  (interactive)
  (if (and (minibuffer-window-p (selected-window))
		   (not(minibuffer-window-p *last-mouse-window*)))
	  (quit-recursive-edit)
	(mouse-left-press)))
;;キー設定
(global-set-key #\LBtnDown 'my-mouse-left-press)

clickable-uriを導入しているならこういう感じとか。

(defun my-mouse-left-press()
  (interactive)
  (if (and (minibuffer-window-p (selected-window))
		   (not(minibuffer-window-p *last-mouse-window*)))
	  (quit-recursive-edit)
	(clickable-uri-mouse-left-press)))
;;キー設定
(global-set-key #\LBtnDown 'my-mouse-left-press)