I don't want Ctrl-Backspace to span different lines...

I don't want Ctrl-Backspace to span different lines...

[Jon]

Is there any way to prevent Ctrl-Backspace & Ctrl-Delete from spanning
lines?

At the moment, if the cursor is on the last word of a line, and I hit
Ctrl-Delete, it deletes that last word, the carriage-return, and the
first word on the next line...

I'd like it to just delete to the beginning / end of the current word.

I'm using Win-Emacs, with Glide, if that makes any difference...

Thanks,
Jon

Re: I don't want Ctrl-Backspace to span different lines...

[Kai Großjohann]

j_del_strother@hotmail.com (Jon) writes:

> Is there any way to prevent Ctrl-Backspace & Ctrl-Delete from spanning
> lines?

You have to write Lisp code.  For example,

(defun jon-kill-word (n)
  "Kill N words or to end of line, whichever comes first."
  (interactive "p")
  (let ((eol (point-at-eol))
        (nwords (save-excursion (forward-word n) (point))))
    (kill-region (point) (min eol nwords))))

(defun jon-backward-kill-word (n)
  "Kill N words backward or to beginning of line, whichever comes first."
  (interactive "p")
  (let ((bol (point-at-bol))
        (nwords (save-excursion (backward-word n) (point))))
    (kill-region (point) (max (bol nwords)))))

If these commands do what you want, you can bind them to keys you like.
-- 
This line is not blank.

Re: I don't want Ctrl-Backspace to span different lines...

[Jon]

kai.grossjohann@gmx.net (Kai Großjohann) wrote in message news:<84llx8whzi.fsf@lucy.is.informatik.uni-duisburg.de>...
> j_del_strother@hotmail.com (Jon) writes:
> 
> > Is there any way to prevent Ctrl-Backspace & Ctrl-Delete from spanning
> > lines?
> 
> You have to write Lisp code.  For example,
> 
> (defun jon-kill-word (n)
>   "Kill N words or to end of line, whichever comes first."
>   (interactive "p")
>   (let ((eol (point-at-eol))
>         (nwords (save-excursion (forward-word n) (point))))
>     (kill-region (point) (min eol nwords))))
> 
> (defun jon-backward-kill-word (n)
>   "Kill N words backward or to beginning of line, whichever comes first."
>   (interactive "p")
>   (let ((bol (point-at-bol))
>         (nwords (save-excursion (backward-word n) (point))))
>     (kill-region (point) (max (bol nwords)))))
> 
> If these commands do what you want, you can bind them to keys you like.


Well, I don't have a clue about writing Lisp, but fortunately your
samples worked perfectly.

Thanks for the help,
Jon

Re: I don't want Ctrl-Backspace to span different lines...

[Kai Großjohann]

j_del_strother@hotmail.com (Jon) writes:

> Well, I don't have a clue about writing Lisp,

It's not difficult :-)

> but fortunately your samples worked perfectly.

Amazing.  I didn't test them.
-- 
This line is not blank.