[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#24364: [PATCH] Fix cursor at bottom left of rectangle (bug#24364)
|
From: |
Alan Third |
|
Subject: |
bug#24364: [PATCH] Fix cursor at bottom left of rectangle (bug#24364) |
|
Date: |
Sun, 4 Sep 2016 23:19:25 +0100 |
|
User-agent: |
Mutt/1.6.0 (2016-04-01) |
* lisp/rect.el (rectangle--col-pos): Don't assume point at EOL doesn't
require rectangle--point-crutches to be set.
---
lisp/rect.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/rect.el b/lisp/rect.el
index 13499d6..f9bebc4 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -108,7 +108,7 @@ rectangle--pos-cols
(defun rectangle--col-pos (col kind)
(let ((c (move-to-column col)))
- (if (= c col)
+ (if (and (= c col) (not (eolp)))
(if (eq kind 'point)
(if (window-parameter nil 'rectangle--point-crutches)
(setf (window-parameter nil 'rectangle--point-crutches) nil))
--
I believe this small change sorts it.
--
Alan Third