From fc36394b4b5456392ca891d63842bb59d442656d Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Mon, 1 May 2006 01:09:40 +0000 Subject: [PATCH] (mac-ae-open-documents, mac-drag-n-drop): Use select-frame-set-input-focus instead of raise-frame. (global-map): Bind M-drag-n-drop to mac-drag-n-drop. --- lisp/term/mac-win.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 68c95d4b319..188ecdf8f27 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1480,7 +1480,7 @@ in `selection-converter-alist', which see." (re-search-forward (mapconcat 'regexp-quote (split-string search-text) "\\|") nil t))))) - (raise-frame)) + (select-frame-set-input-focus (selected-frame))) (defun mac-ae-text (ae) (or (cdr (mac-ae-parameter ae nil "TEXT")) @@ -2039,9 +2039,10 @@ Switch to a buffer editing the last file dropped." (dolist (file-name (nth 2 event)) (dnd-handle-one-url window 'private (concat "file:" file-name)))) - (raise-frame)) + (select-frame-set-input-focus (selected-frame))) (global-set-key [drag-n-drop] 'mac-drag-n-drop) +(global-set-key [M-drag-n-drop] 'mac-drag-n-drop) ;;;; Non-toolkit Scroll bars -- 2.39.5