diff options
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/ns-win.el | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index ad026e6fd0d..4435b6cbf04 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el | |||
| @@ -728,18 +728,21 @@ Lines are highlighted according to `ns-input-line'." | |||
| 728 | ns-input-line))) | 728 | ns-input-line))) |
| 729 | (ns-input-line | 729 | (ns-input-line |
| 730 | (if (not ns-select-overlay) | 730 | (if (not ns-select-overlay) |
| 731 | (overlay-put (setq ns-select-overlay (make-overlay (point-min) (point-min))) | 731 | (overlay-put (setq ns-select-overlay (make-overlay (point-min) |
| 732 | (point-min))) | ||
| 732 | 'face 'highlight)) | 733 | 'face 'highlight)) |
| 733 | (let ((beg (save-excursion | 734 | (let ((beg (save-excursion |
| 734 | (goto-line (if (consp ns-input-line) | 735 | (goto-char (point-min)) |
| 735 | (min (car ns-input-line) (cdr ns-input-line)) | 736 | (line-beginning-position |
| 736 | ns-input-line)) | 737 | (if (consp ns-input-line) |
| 737 | (point))) | 738 | (min (car ns-input-line) (cdr ns-input-line)) |
| 739 | ns-input-line)))) | ||
| 738 | (end (save-excursion | 740 | (end (save-excursion |
| 739 | (goto-line (+ 1 (if (consp ns-input-line) | 741 | (goto-char (point-min)) |
| 740 | (max (car ns-input-line) (cdr ns-input-line)) | 742 | (line-beginning-position |
| 741 | ns-input-line))) | 743 | (1+ (if (consp ns-input-line) |
| 742 | (point)))) | 744 | (max (car ns-input-line) (cdr ns-input-line)) |
| 745 | ns-input-line)))))) | ||
| 743 | (move-overlay ns-select-overlay beg end) | 746 | (move-overlay ns-select-overlay beg end) |
| 744 | (deactivate-mark) | 747 | (deactivate-mark) |
| 745 | (goto-char beg))) | 748 | (goto-char beg))) |