backward-delete-word function (not backward-kill-word)

backward-delete-word function (not backward-kill-word)

[gg44060]

Is there a backward-delete-word funtion in emacs?  It is very annoying
to have the  words deleted during a find-file to show up on the kill
ring (even worse, replace the clipboard, so that you have to go back
to the other application and copy it again).

I tried defining it as a keyboard macro using delete-region, but of
course it doesn't work in the mini-buffer.

TIA.

Re: backward-delete-word function (not backward-kill-word)

[Ehud Karni]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 24 Feb 2004 21:19:44 -0800, gg44060(at)mail.com wrote:
>
> Is there a backward-delete-word funtion in emacs?  It is very annoying
> to have the  words deleted during a find-file to show up on the kill
> ring [snip ]
>
> I tried defining it as a keyboard macro using delete-region, but of
> course it doesn't work in the mini-buffer.

Just copy the `kill-word' and `backward-kill-word' functions (from
simple.el) and replace the string "kill" by "delete" like this:

(defun delete-word (arg)
  "Delete characters forward until encountering the end of a word.
With argument, do this that many times."
  (interactive "p")
  (delete-region (point) (progn (forward-word arg) (point))))

(defun backward-delete-word (arg)
  "Delete characters backward until encountering the end of a word.
With argument, do this that many times."
  (interactive "p")
  (delete-word (- arg)))

Assign (globally) keys to these functions and enjoy it.

Ehud.


- --
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD8DBQFAPGvULFvTvpjqOY0RAjYXAJ9/5QFvX6iAqJQOqSPKC5oGP47uiQCeOo42
cPptUBIghmv4OItNr+88aKs=
=RdWh
-----END PGP SIGNATURE-----

Re: backward-delete-word function (not backward-kill-word)

[Ehud Karni]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 24 Feb 2004 21:19:44 -0800, gg44060(at)mail.com wrote:
>
> It is very annoying to have the words deleted during a find-file to
> show up on the kill ring (even worse, replace the clipboard, so that
> you have to go back to the other application and copy it again).

If you don't want the kill ring to interfere with the clipboard do:
  (setq interprogram-cut-function nil)

Ehud.


- --
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD8DBQFAPG0nLFvTvpjqOY0RAiAUAJ94tXjtcgdFRe646+RJZCM+BuEf0wCfdyrs
MYiqKmYuv5Rvsvq/pNo8b6I=
=bKvy
-----END PGP SIGNATURE-----

Re: backward-delete-word function (not backward-kill-word)

[Johan Bockgård]

gg44060@mail.com writes:

> I tried defining it as a keyboard macro using delete-region, but of
> course it doesn't work in the mini-buffer.

Of course it does.

,----[ C-h v enable-recursive-minibuffers RET ]
| enable-recursive-minibuffers's value is t
| 
| Documentation:
| *Non-nil means to allow minibuffer commands while in the minibuffer.
| This variable makes a difference whenever the minibuffer window is
| active.
| 
| You can customize this variable.
`----

-- 
:)
Johan Bockgård

Re: backward-delete-word function (not backward-kill-word)

[gg44060]

bojohan+news@dd.chalmers.se (Johan Bockgård) wrote in message news:<yoijr7wihkrp.fsf@frealaf.dd.chalmers.se>...
> gg44060@mail.com writes:
> 
> > I tried defining it as a keyboard macro using delete-region, but of
> > course it doesn't work in the mini-buffer.
> 
> Of course it does.
> 
> ,----[ C-h v enable-recursive-minibuffers RET ]
> | enable-recursive-minibuffers's value is t
> | 
> | Documentation:
> | *Non-nil means to allow minibuffer commands while in the minibuffer.
> | This variable makes a difference whenever the minibuffer window is
> | active.
> | 
> | You can customize this variable.
> `----

Thanks!  You learn something new every day.  I had gotten around the
problem by binding delete-region to a C-c key.

Thanks again.

Re: backward-delete-word function (not backward-kill-word)

[gg44060]

"Ehud Karni" wrote in message news:<mailman.451.1077701989.340.help-gnu-emacs@gnu.org>...
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> On 24 Feb 2004 21:19:44 -0800, gg44060(at)mail.com wrote:
> >
> > It is very annoying to have the words deleted during a find-file to
> > show up on the kill ring (even worse, replace the clipboard, so that
> > you have to go back to the other application and copy it again).
> 
> If you don't want the kill ring to interfere with the clipboard do:
>   (setq interprogram-cut-function nil)

Well, my original problem was I found myself deleting text I wouldn't
use anywhere .  I don't want it to interfere with any kill ring.

Thanks for the help.

Re: backward-delete-word function (not backward-kill-word)

[gg44060]

"Ehud Karni" wrote in message news:<mailman.450.1077701652.340.help-gnu-emacs@gnu.org>...
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> On 24 Feb 2004 21:19:44 -0800, gg44060(at)mail.com wrote:
> >
> > Is there a backward-delete-word funtion in emacs?  It is very annoying
> > to have the  words deleted during a find-file to show up on the kill
> > ring [snip ]
> >
> > I tried defining it as a keyboard macro using delete-region, but of
> > course it doesn't work in the mini-buffer.
> 
> Just copy the `kill-word' and `backward-kill-word' functions (from
> simple.el) and replace the string "kill" by "delete" like this:
> 
> (defun delete-word (arg)
>   "Delete characters forward until encountering the end of a word.
> With argument, do this that many times."
>   (interactive "p")
>   (delete-region (point) (progn (forward-word arg) (point))))
> 
> (defun backward-delete-word (arg)
>   "Delete characters backward until encountering the end of a word.
> With argument, do this that many times."
>   (interactive "p")
>   (delete-word (- arg)))
> 
> Assign (globally) keys to these functions and enjoy it.

Thanks! This is exactly what I was looking for and it works like a
charm!  I hope to get the full sources installed for emacs once the
download site starts working again.