# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1207965581 0
# Node ID 866d9d0f14ace81291002c03c7c38497bfe22b88
# Parent  286f7ccebfbf3aed541d104409c183c650d0aa1e
(mac-ae-open-documents): Adjust selection range parameter origins.

diff -r 286f7ccebfbf -r 866d9d0f14ac lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Sat Apr 12 01:59:22 2008 +0000
+++ b/lisp/term/mac-win.el	Sat Apr 12 01:59:41 2008 +0000
@@ -1738,11 +1738,11 @@
 	     (let ((line (car selection-range))
 		   (start (cadr selection-range))
 		   (end (nth 2 selection-range)))
-	       (if (> line 0)
-		   (goto-line line)
-		 (if (and (> start 0) (> end 0))
-		     (progn (set-mark start)
-			    (goto-char end))))))
+	       (if (>= line 0)
+		   (goto-line (1+ line))
+		 (if (and (>= start 0) (>= end 0))
+		     (progn (set-mark (1+ start))
+			    (goto-char (1+ end)))))))
 	    ((stringp search-text)
 	     (re-search-forward
 	      (mapconcat 'regexp-quote (split-string search-text) "\\|")