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))) |