mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix cursor at bottom left of rectangle (bug#24364)

Browse source 
* lisp/rect.el (rectangle--col-pos): Don't assume point at EOL doesn't
require rectangle--point-crutches to be set.
This commit is contained in:
Alan Third 2016-09-04 22:58:37 +01:00
parent ec12c6705f
commit 3b3bc36b0d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/rect.el
View file

@ -108,7 +108,7 @@ Point is at the end of the segment of this line within the rectangle."
(defun rectangle--col-pos (col kind) (defun rectangle--col-pos (col kind)
(let ((c (move-to-column col))) (let ((c (move-to-column col)))
(if (= c col) (if (and (= c col) (not (eolp)))
(if (eq kind 'point) (if (eq kind 'point)
(if (window-parameter nil 'rectangle--point-crutches) (if (window-parameter nil 'rectangle--point-crutches)
(setf (window-parameter nil 'rectangle--point-crutches) nil)) (setf (window-parameter nil 'rectangle--point-crutches) nil))