diff options
| author | YAMAMOTO Mitsuharu | 2008-04-12 02:00:46 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu | 2008-04-12 02:00:46 +0000 |
| commit | 108b164dd845dec7fddc154996be9a0ac8e89088 (patch) | |
| tree | 78c0da0351e0c65d982fd5828485191f6fd423c4 /lisp/term | |
| parent | a1b41389e4069747940c87b477f11852ec86d9f3 (diff) | |
| download | emacs-108b164dd845dec7fddc154996be9a0ac8e89088.tar.gz emacs-108b164dd845dec7fddc154996be9a0ac8e89088.zip | |
(mac-ae-open-documents): Adjust selection range parameter origins.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index c9c13c7814e..eaa0e35fa5b 100644 --- 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." | |||
| 1738 | (let ((line (car selection-range)) | 1738 | (let ((line (car selection-range)) |
| 1739 | (start (cadr selection-range)) | 1739 | (start (cadr selection-range)) |
| 1740 | (end (nth 2 selection-range))) | 1740 | (end (nth 2 selection-range))) |
| 1741 | (if (> line 0) | 1741 | (if (>= line 0) |
| 1742 | (goto-line line) | 1742 | (goto-line (1+ line)) |
| 1743 | (if (and (> start 0) (> end 0)) | 1743 | (if (and (>= start 0) (>= end 0)) |
| 1744 | (progn (set-mark start) | 1744 | (progn (set-mark (1+ start)) |
| 1745 | (goto-char end)))))) | 1745 | (goto-char (1+ end))))))) |
| 1746 | ((stringp search-text) | 1746 | ((stringp search-text) |
| 1747 | (re-search-forward | 1747 | (re-search-forward |
| 1748 | (mapconcat 'regexp-quote (split-string search-text) "\\|") | 1748 | (mapconcat 'regexp-quote (split-string search-text) "\\|") |