Re: delete-region - is their a way to get the deleted text?

[David Engster <deng@randomsample.de>]

Thorsten Jolitz writes:
> I found a function that would be useful for me as is - if only I would
> have access to the region deleted with 'delete-region' inside that
> function.
>
> ,------------------------------------------------------------------
> | (delete-region START END)
> | Delete the text between START and END.
> | This command deletes buffer text without modifying the kill ring.
> `------------------------------------------------------------------
>
> If its not in the kill ring - is there any other way to get the text
> that deleted, or is it simply gone and lost?

Well, there's always the super-hacky way:

(require 'cl)

(defadvice your-function-of-interest
  (around replace-delete-with-kill activate)
  "Replace `delete-region' with `kill-region'."
  (flet ((delete-region (x y)
			(kill-region x y)))
    ad-do-it))

And then just yank...

-David