(mac-ae-open-documents): Adjust selection range parameter origins.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0b66d05b77cbba9d2ff319be81c2d83e74a3909..292561e6bb9b92a63b51c8670fb2cf81d6fc471d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-12  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+       * term/mac-win.el (mac-ae-open-documents): Adjust selection range
+       parameter origins.
+
 2008-04-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/python.el (python-mode): Don't mess with hippie-expand.

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index c9c13c7814e5b7c217b796b68e6c4476f6206adf..eaa0e35fa5b3e9ec6fd6a56b1fc4b716660db284 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1738,11 +1738,11 @@ if possible.  If there's no such frame, a new frame is created."
             (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) "\\|")