Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.

Browse source
This commit is contained in:
Johan Bockgård 2015-04-12 15:50:02 +02:00
parent a3d11ecb83
commit a77540e774
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/rect.el
View file

@ -346,7 +346,8 @@ no text on the right side of the rectangle."
(defun delete-whitespace-rectangle-line (startcol _endcol fill)
(when (= (move-to-column startcol (if fill t 'coerce)) startcol)
(unless (= (point) (point-at-eol))
(delete-region (point) (progn (skip-syntax-forward " ") (point))))))
(delete-region (point) (progn (skip-syntax-forward " " (point-at-eol))
(point))))))
;;;###autoload
(defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name