* macterm.c (SelectionRange): Add Xcode position apple event struct.

	(do_ae_open_documents): Handle Xcode-style file position open
	events.
* term/mac-win.el (mac-drag-n-drop): Handle drag-n-drop events
	that include line numbers.

2 files changed, 28 insertions, 15 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25194e149ac..b8bdb1b1ea4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-29  Sanghyuk Suh  <han9kin@mac.com>
+
+        * term/mac-win.el (mac-drag-n-drop): Handle drag-n-drop events
+        that include line numbers.
+
 2004-12-29  Milan Zamazal  <pdm@zamazal.org>
 
         * files.el (hack-local-variables): If no PREFIX, set it to "^".
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 19d25288448..4b3c7531e5a 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1567,21 +1567,29 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
   "Edit the files listed in the drag-n-drop EVENT.
 Switch to a buffer editing the last file dropped."
   (interactive "e")
-  (save-excursion
-    ;; Make sure the drop target has positive co-ords
-    ;; before setting the selected frame - otherwise it
-    ;; won't work.  <skx@tardis.ed.ac.uk>
-    (let* ((window (posn-window (event-start event)))
-           (coords (posn-x-y (event-start event)))
-           (x (car coords))
-           (y (cdr coords)))
-      (if (and (> x 0) (> y 0))
-          (set-frame-selected-window nil window))
-      (mapcar (lambda (file-name) 
-                (x-dnd-handle-one-url window 'private 
-                                      (concat "file:" file-name)))
-              (car (cdr (cdr event)))))
-    (raise-frame)))
+  ;; Make sure the drop target has positive co-ords
+  ;; before setting the selected frame - otherwise it
+  ;; won't work.  <skx@tardis.ed.ac.uk>
+  (let* ((window (posn-window (event-start event)))
+         (coords (posn-x-y (event-start event)))
+         (x (car coords))
+         (y (cdr coords)))
+    (if (and (> x 0) (> y 0))
+        (set-frame-selected-window nil window))
+    (mapcar (lambda (file-name)
+              (if (listp file-name)
+                  (let ((line (car file-name))
+                        (start (car (cdr file-name)))
+                        (end (car (cdr (cdr file-name)))))
+                    (if (> line 0)
+                        (goto-line line)
+                      (if (and (> start 0) (> end 0))
+                          (progn (set-mark start)
+                                 (goto-char end)))))
+                (x-dnd-handle-one-url window 'private
+                                      (concat "file:" file-name))))
+            (car (cdr (cdr event)))))
+  (raise-frame))
 
 (global-set-key [drag-n-drop] 'mac-drag-n-drop)