Mercurial > emacs

comparison lisp/term/mac-win.el @ 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 3894622d0c1c
children 8a0284e52e27 d9f8d2a65d18 2ecafc6d5db7
comparison
equal deleted inserted replaced
70297:8b21f8434b0f 70298:11e77c23e062
1478 (goto-char end)))))) 1478 (goto-char end))))))
1479 ((stringp search-text) 1479 ((stringp search-text)
1480 (re-search-forward 1480 (re-search-forward
1481 (mapconcat 'regexp-quote (split-string search-text) "\\|") 1481 (mapconcat 'regexp-quote (split-string search-text) "\\|")
1482 nil t))))) 1482 nil t)))))
1483 (raise-frame)) 1483 (select-frame-set-input-focus (selected-frame)))
1484 1484
1485 (defun mac-ae-text (ae) 1485 (defun mac-ae-text (ae)
1486 (or (cdr (mac-ae-parameter ae nil "TEXT")) 1486 (or (cdr (mac-ae-parameter ae nil "TEXT"))
1487 (error "No text in Apple event."))) 1487 (error "No text in Apple event.")))
1488 1488
2037 (if (and (> x 0) (> y 0)) 2037 (if (and (> x 0) (> y 0))
2038 (set-frame-selected-window nil window)) 2038 (set-frame-selected-window nil window))
2039 (dolist (file-name (nth 2 event)) 2039 (dolist (file-name (nth 2 event))
2040 (dnd-handle-one-url window 'private 2040 (dnd-handle-one-url window 'private
2041 (concat "file:" file-name)))) 2041 (concat "file:" file-name))))
2042 (raise-frame)) 2042 (select-frame-set-input-focus (selected-frame)))
2043 2043
2044 (global-set-key [drag-n-drop] 'mac-drag-n-drop) 2044 (global-set-key [drag-n-drop] 'mac-drag-n-drop)
2045 (global-set-key [M-drag-n-drop] 'mac-drag-n-drop)
2045 2046
2046 ;;;; Non-toolkit Scroll bars 2047 ;;;; Non-toolkit Scroll bars
2047 2048
2048 (unless x-toolkit-scroll-bars 2049 (unless x-toolkit-scroll-bars
2049 2050