No copy-rectangle-as-kill?

No copy-rectangle-as-kill?

[Hattuari]

Am I overlooking something, or is there no command in Emacs to copy a
rectangle into the last killed rectangle "special place" without also
removing it from the current buffer?  I gotta tell y'all, XEmacs has better
rectangle support than Emacs. ;)

Re: No copy-rectangle-as-kill?

[Chris F.A. Johnson]

On Wed, 01 Jun 2005 at 09:50 GMT, Hattuari wrote:
> Am I overlooking something, or is there no command in Emacs to copy a
> rectangle into the last killed rectangle "special place" without also
> removing it from the current buffer?  I gotta tell y'all, XEmacs has better
> rectangle support than Emacs. ;)

(defun copy-rectangle-as-kill ()
    (interactive)
    (save-excursion
    (kill-rectangle (mark) (point))
    (exchange-point-and-mark)
    (yank-rectangle)))

-- 
    Chris F.A. Johnson                     <http://cfaj.freeshell.org>
    ==================================================================
    Shell Scripting Recipes: A Problem-Solution Approach, 2005, Apress
    <http://www.torfree.net/~chris/books/cfaj/ssr.html>

Re: No copy-rectangle-as-kill?

[Mathias Dahl]

"Chris F.A. Johnson" <cfajohnson@gmail.com> writes:

> On Wed, 01 Jun 2005 at 09:50 GMT, Hattuari wrote:
>> Am I overlooking something, or is there no command in Emacs to copy a
>> rectangle into the last killed rectangle "special place" without also
>> removing it from the current buffer?  I gotta tell y'all, XEmacs has better
>> rectangle support than Emacs. ;)
>
> (defun copy-rectangle-as-kill ()
>     (interactive)
>     (save-excursion
>     (kill-rectangle (mark) (point))
>     (exchange-point-and-mark)
>     (yank-rectangle)))

I like this better:

(defun copy-rectangle-as-kill (start end)
  "Copy rectangle with corners at point and mark; save as last killed one.
Calling from program, supply two args START and END, buffer positions.
But in programs you might prefer to use `extract-rectangle'."
  (interactive "r")
  (setq killed-rectangle (extract-rectangle start end))
  (message "Rectangle saved."))

It does not feel right to me messing with the buffer just to get a
copy of some of it.

/Mathias

Re: No copy-rectangle-as-kill?

[optional]

You could try:

C-x r r R
C-x r i R

where R is a register name such as 'a', 'b', etc.  The first command
puts the rectange in the register named R and the second inserts the
rectange from register R.

Re: No copy-rectangle-as-kill?

[Stefan Monnier]

> Am I overlooking something, or is there no command in Emacs to copy a
> rectangle into the last killed rectangle "special place" without also
> removing it from the current buffer?  I gotta tell y'all, XEmacs has better
> rectangle support than Emacs. ;)

Please send your request for enhancement via M-x report-emacs-bug
(and avoid the (X)Emacs cross-bashing because it doesn't put the maintainers
in a mood that lends itself to being nice to feature-requesters).


        Stefan

Re: No copy-rectangle-as-kill?

[Holger Sparr]

On Wed, 01 Jun 2005, susudata@setidava.kushan.aa wrote:
> Am I overlooking something, or is there no command in Emacs to copy a
> rectangle into the last killed rectangle "special place" without also
> removing it from the current buffer?  I gotta tell y'all, XEmacs has
> better rectangle support than Emacs. ;)

There is also rect-mark.el . 

The commentary section tells:

;; You can also kill or copy rectangles onto the kill ring which is
;; convenient for yanking rectangles into ordinary buffers (i.e.  ones
;; not in picture mode) and for pasting rectangles into other window
;; system programs (e.g. xterm).  These keys are by default bound to
;; `C-x r C-w' and `C-x r M-w' by analogy to the normal kill and copy
;; counterparts.


--