Mercurial > emacs
comparison lisp/term/mac-win.el @ 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 | 08cd8b1cca35 |
| children | 393b3d64ca25 ca9efc5939fc |
comparison
equal
deleted
inserted
replaced
| 80503:286f7ccebfbf | 80504:866d9d0f14ac |
|---|---|
| 1736 (search-text (mac-ae-text-for-search ae))) | 1736 (search-text (mac-ae-text-for-search ae))) |
| 1737 (cond (selection-range | 1737 (cond (selection-range |
| 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) "\\|") |
| 1749 nil t))))) | 1749 nil t))))) |
| 1750 (select-frame-set-input-focus (selected-frame))) | 1750 (select-frame-set-input-focus (selected-frame))) |