diff options
| author | Miles Bader | 2008-04-23 05:55:42 +0000 |
|---|---|---|
| committer | Miles Bader | 2008-04-23 05:55:42 +0000 |
| commit | a113b3ca322fd73d97d0d9d69c9f48dc13fb326a (patch) | |
| tree | 37b3ad22a198a83f68738ef86aec187bb6d926d9 /lisp/term | |
| parent | e96a8d6dc0ffc35cf6c02924de2453c69fa8f6fe (diff) | |
| parent | 81fe843b5a3cc7708e0800aeb5bc0dbe448e800a (diff) | |
| download | emacs-a113b3ca322fd73d97d0d9d69c9f48dc13fb326a.tar.gz emacs-a113b3ca322fd73d97d0d9d69c9f48dc13fb326a.zip | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1121
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 60f27052892..e15f2e4c873 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -1802,11 +1802,11 @@ if possible. If there's no such frame, a new frame is created." | |||
| 1802 | (let ((line (car selection-range)) | 1802 | (let ((line (car selection-range)) |
| 1803 | (start (cadr selection-range)) | 1803 | (start (cadr selection-range)) |
| 1804 | (end (nth 2 selection-range))) | 1804 | (end (nth 2 selection-range))) |
| 1805 | (if (> line 0) | 1805 | (if (>= line 0) |
| 1806 | (goto-line line) | 1806 | (goto-line (1+ line)) |
| 1807 | (if (and (> start 0) (> end 0)) | 1807 | (if (and (>= start 0) (>= end 0)) |
| 1808 | (progn (set-mark start) | 1808 | (progn (set-mark (1+ start)) |
| 1809 | (goto-char end)))))) | 1809 | (goto-char (1+ end))))))) |
| 1810 | ((stringp search-text) | 1810 | ((stringp search-text) |
| 1811 | (re-search-forward | 1811 | (re-search-forward |
| 1812 | (mapconcat 'regexp-quote (split-string search-text) "\\|") | 1812 | (mapconcat 'regexp-quote (split-string search-text) "\\|") |