Mercurial > emacs
comparison lisp/term/mac-win.el @ 61497:c47b59f4f76f
(dnd): Require dnd
(mac-drag-n-drop): Call dnd-handle-one-url.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Tue, 12 Apr 2005 09:01:36 +0000 |
| parents | de40dfe68257 |
| children | 3150e849361e |
comparison
equal
deleted
inserted
replaced
| 61496:b06b2e541697 | 61497:c47b59f4f76f |
|---|---|
| 75 (require 'scroll-bar) | 75 (require 'scroll-bar) |
| 76 (require 'faces) | 76 (require 'faces) |
| 77 ;;(require 'select) | 77 ;;(require 'select) |
| 78 (require 'menu-bar) | 78 (require 'menu-bar) |
| 79 (require 'fontset) | 79 (require 'fontset) |
| 80 (require 'x-dnd) | 80 (require 'dnd) |
| 81 | 81 |
| 82 (defvar x-invocation-args) | 82 (defvar x-invocation-args) |
| 83 | 83 |
| 84 (defvar x-command-line-resources nil) | 84 (defvar x-command-line-resources nil) |
| 85 | 85 |
| 1646 (if (> line 0) | 1646 (if (> line 0) |
| 1647 (goto-line line) | 1647 (goto-line line) |
| 1648 (if (and (> start 0) (> end 0)) | 1648 (if (and (> start 0) (> end 0)) |
| 1649 (progn (set-mark start) | 1649 (progn (set-mark start) |
| 1650 (goto-char end))))) | 1650 (goto-char end))))) |
| 1651 (x-dnd-handle-one-url window 'private | 1651 (dnd-handle-one-url window 'private |
| 1652 (concat "file:" file-name)))) | 1652 (concat "file:" file-name)))) |
| 1653 (car (cdr (cdr event))))) | 1653 (car (cdr (cdr event))))) |
| 1654 (raise-frame)) | 1654 (raise-frame)) |
| 1655 | 1655 |
| 1656 (global-set-key [drag-n-drop] 'mac-drag-n-drop) | 1656 (global-set-key [drag-n-drop] 'mac-drag-n-drop) |
| 1657 | 1657 |