Re: copy-rectangle-to-kill-ring

[Kevin Rodgers <kevin.d.rodgers@gmail.com>]

Kevin Rodgers wrote:
> Wilmar Igl wrote:
>> sorry, I don't want to  be a nuisance. However, I'd like to suggest to
>> include a function to copy a rectangle into the kill ring which is not 
>> available at the moment (only copy-rectangle-to-register).
> 
> Do you mean "copy a rectangle so that `C-x r y' can insert it"?  Or do
> you mean "copy a rectangle so that `C-y' can insert it"?
> 
> If the former, this should do the job:
> 
> (defun copy-rectangle-as-kill (beg end)
>   "Copy rectangular region into `killed-rectangle', but don't delete it.
> The rectangle can then be yanked via \\[yank-rectangle]."
>   (interactive "r")
>   (setq killed-rectangle (extract-rectangle beg end)))

Or if the latter, how about:

(defun copy-rectangle-as-kill-region (beg end)
   "Copy rectangular region into the kill ring, but don't delete it.
The text can then be yanked via \\[yank]."
   ;; Based on copy-region-as-kill, but with no filtering:
   (interactive "r")
   (let ((text (mapconcat 'identity (extract-rectangle beg end) "\n")))
     (if (eq last-command 'kill-region)
	(kill-append text (< end beg))
       (kill-new text)))
   (if transient-mark-mode
       (setq deactivate-mark t))
   nil)

-- 
Kevin Rodgers
Denver, Colorado, USA