Zap-up-to-char in Emacs

Zap-up-to-char in Emacs

[Jiri Pejchal]

Hi,

function zap-to-char

`M-z CHAR'
     Kills through the next occurrence of CHAR (`zap-to-char'). 

is there a function in Emacs similar to zap-up-to-char in XEmacs that 
would kill up to and not including the next occurencce of CHAR?

Thanks.

Jiri Pejchal

Re: Zap-up-to-char in Emacs

[Jesper Harder]

Jiri Pejchal <xpejchal@nymfe33.fi.muni.cz> writes:

> function zap-to-char
>
> `M-z CHAR'
>      Kills through the next occurrence of CHAR (`zap-to-char'). 
>
> is there a function in Emacs similar to zap-up-to-char in XEmacs that 
> would kill up to and not including the next occurencce of CHAR?

Emacs (21) _has_ the function `zap-up-to-char' by default bound to the
same key as in XEmacs:

,----[ C-h k M-z ]
| M-z runs the command zap-to-char
|    which is an interactive compiled Lisp function in `simple'.
| (zap-to-char ARG CHAR)
| 
| Kill up to and including ARG'th occurrence of CHAR.
| Case is ignored if `case-fold-search' is non-nil in the current buffer.
| Goes backward if ARG is negative; error if CHAR not found.
`----

Re: Zap-up-to-char in Emacs

[Benjamin Lewis]

On Thu, 5 Dec 2002, Jiri Pejchal wrote:

> Hi,
> 
> function zap-to-char
> 
> `M-z CHAR'
> Kills through the next occurrence of CHAR (`zap-to-char'). 
> 
> is there a function in Emacs similar to zap-up-to-char in XEmacs that 
> would kill up to and not including the next occurencce of CHAR?

Interactively, why not just do M-z CHAR CHAR ?

If you're writing a function, you could do
(zap-to-char CHAR)
(insert-char CHAR 1)

-- 
Benjamin Lewis

Seeing is deceiving.  It's eating that's believing.
                -- James Thurber

Re: Zap-up-to-char in Emacs

[Fredrik Staxeng]

Benjamin Lewis <bclewis@cs.sfu.ca> writes:

>On Thu, 5 Dec 2002, Jiri Pejchal wrote:
>
>> Hi,
>> 
>> function zap-to-char
>> 
>> `M-z CHAR'
>> Kills through the next occurrence of CHAR (`zap-to-char'). 
>> 
>> is there a function in Emacs similar to zap-up-to-char in XEmacs that 
>> would kill up to and not including the next occurencce of CHAR?

From my .emacs:

(defun zap-upto-char (arg char)
  "Kill up to and including ARG'th occurrence of CHAR.
Goes backward if ARG is negative; error if CHAR not found."
  (interactive "*p\ncZap to char: ")
  (kill-region (point) (progn
			 (search-forward (char-to-string char) nil nil arg)
			 (goto-char (if (> arg 0) (1- (point)) (1+ (point))))
			 (point))))
(define-key global-map "\M-z" 'zap-upto-char)

But I find I don't use it that much. There is no . command, so I 
use search and replace much more instead.

-- 
Fredrik Stax\"ang | rot13: sfgk@hcqngr.hh.fr

Re: Zap-up-to-char in Emacs

[Kai Großjohann]

Jiri Pejchal <xpejchal@nymfe33.fi.muni.cz> writes:

> is there a function in Emacs similar to zap-up-to-char in XEmacs that 
> would kill up to and not including the next occurencce of CHAR?

Maybe M-z CHAR CHAR is easiest, but C-s CHAR C-b C-w is also possible.

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)