Commit 22f4fba8 authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/emulation/cua-rect.el (cua--rectangle-region-insert): New function.

Add cua--insert-rectangle around region-insert-function (bug#41440).
parent 6b9eac67
Pipeline #5814 passed with stage
in 67 minutes and 6 seconds
...@@ -1412,7 +1412,7 @@ With prefix arg, indent to that column." ...@@ -1412,7 +1412,7 @@ With prefix arg, indent to that column."
(add-function :around region-extract-function (add-function :around region-extract-function
#'cua--rectangle-region-extract) #'cua--rectangle-region-extract)
(add-function :around region-insert-function (add-function :around region-insert-function
#'cua--insert-rectangle) #'cua--rectangle-region-insert)
(add-function :around redisplay-highlight-region-function (add-function :around redisplay-highlight-region-function
#'cua--rectangle-highlight-for-redisplay) #'cua--rectangle-highlight-for-redisplay)
...@@ -1422,6 +1422,10 @@ With prefix arg, indent to that column." ...@@ -1422,6 +1422,10 @@ With prefix arg, indent to that column."
;; already do it elsewhere. ;; already do it elsewhere.
(funcall redisplay-unhighlight-region-function (nth 3 args)))) (funcall redisplay-unhighlight-region-function (nth 3 args))))
(defun cua--rectangle-region-insert (orig &rest args)
(if (not cua--rectangle) (apply orig args)
(funcall #'cua--insert-rectangle (car args))))
(defun cua--rectangle-region-extract (orig &optional delete) (defun cua--rectangle-region-extract (orig &optional delete)
(cond (cond
((not cua--rectangle) ((not cua--rectangle)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment