Mercurial > emacs
changeset 80504:866d9d0f14ac
(mac-ae-open-documents): Adjust selection range parameter origins.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Sat, 12 Apr 2008 01:59:41 +0000 |
| parents | 286f7ccebfbf |
| children | 1b01af60cbc9 |
| files | lisp/term/mac-win.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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) "\\|")