Mercurial > emacs

changeset 70298:11e77c23e062

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Mon, 01 May 2006 01:09:40 +0000
parents 8b21f8434b0f
children ca785b8f7171
files lisp/term/mac-win.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/mac-win.el	Sun Apr 30 23:16:47 2006 +0000
+++ b/lisp/term/mac-win.el	Mon May 01 01:09:40 2006 +0000
@@ -1480,7 +1480,7 @@
 	     (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 @@
     (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