Re: Kill ring question

[Ke Lu <lu@luxdo.jp>]

Ke Lu <lu@luxdo.jp> writes:

> Peter Dyballa <Peter_Dyballa@Web.DE> writes:
>
>> Am 27.11.2007 um 15:25 schrieb David Kastrup:
>>
>>> Delete the previous N characters (following if N is negative).
>>> Optional second arg KILLFLAG non-nil means kill instead (save in  kill ring).
>>> Interactively, N is the prefix arg, and KILLFLAG is set if
>>> N was explicitly specified.
>>
>> Indeed ... Strange behaviour, anyway. Does it come from a time when  GNU Emacs
>> did not have undo?
>>
>> --
>> Mit friedvollen Grüßen
>>
>>   Pete     === -Q
>>              ==<__/% >>
>> _____________(_)____@_____________________________
>
> Thanks all.
> I use viper, and sometimes I don't want de, d%, d$, ce, c%, c$ .etc
> killring text, I just want delete text of change text,
> Is there any switch to do it?

I Can't get any more ideas, So the only thing I can do is

;; Add to .emacs
(global-set-key (kbd "C-S-k")
  (lambda ()
    (interactive)
    (if mark-active
        (progn
          (delete-region (region-beginning) (region-end))
          )
      (call-interactively 'mark-word)
      (delete-region (region-beginning) (region-end))
      )))

;; add to .viper     
(define-key viper-vi-global-user-map "K"
  (lambda ()
    (interactive)
    (if mark-active
        (progn
          (delete-region (region-beginning) (region-end))
          )
      (call-interactively 'mark-word)
      (delete-region (region-beginning) (region-end))
      )))