diff options
| author | Alan Third | 2016-09-04 22:58:37 +0100 |
|---|---|---|
| committer | Alan Third | 2016-09-07 22:29:14 +0100 |
| commit | 3b3bc36b0d0b273534cf08a51d6a10c015875e2c (patch) | |
| tree | 644cf93f0c44ac7811ffb8f7f4bba14bebd7676c | |
| parent | ec12c6705f91106c4f4c53e76447dafa21e12f9f (diff) | |
| download | emacs-3b3bc36b0d0b273534cf08a51d6a10c015875e2c.tar.gz emacs-3b3bc36b0d0b273534cf08a51d6a10c015875e2c.zip | |
Fix cursor at bottom left of rectangle (bug#24364)
* lisp/rect.el (rectangle--col-pos): Don't assume point at EOL doesn't
require rectangle--point-crutches to be set.
| -rw-r--r-- | lisp/rect.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 13499d686f3..f9bebc47fef 100644 --- a/lisp/rect.el +++ b/lisp/rect.el | |||
| @@ -108,7 +108,7 @@ Point is at the end of the segment of this line within the rectangle." | |||
| 108 | 108 | ||
| 109 | (defun rectangle--col-pos (col kind) | 109 | (defun rectangle--col-pos (col kind) |
| 110 | (let ((c (move-to-column col))) | 110 | (let ((c (move-to-column col))) |
| 111 | (if (= c col) | 111 | (if (and (= c col) (not (eolp))) |
| 112 | (if (eq kind 'point) | 112 | (if (eq kind 'point) |
| 113 | (if (window-parameter nil 'rectangle--point-crutches) | 113 | (if (window-parameter nil 'rectangle--point-crutches) |
| 114 | (setf (window-parameter nil 'rectangle--point-crutches) nil)) | 114 | (setf (window-parameter nil 'rectangle--point-crutches) nil)) |