[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/mac-win.el
diff -u emacs/lisp/term/mac-win.el:1.65 emacs/lisp/term/mac-win.el:1.66
--- emacs/lisp/term/mac-win.el:1.65     Thu Mar 30 02:23:08 2006
+++ emacs/lisp/term/mac-win.el  Mon May  1 01:09:40 2006
@@ -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