insert text after a char depending on next char

insert text after a char depending on next char

[Sebastian Meisel]

Hallo,

is the following possible in emacs, and if it is how can it be done:

I want emacs  to insert  "\," after a dot ("."), when no space is following:

I type: "Hallo World. Hallo World." -> emacs shall not insert anything, 
because a space is following.
I type: "Hallo World.Hallo World." -> emacs shall insert "\," after the 
dot resulting in: "Hallo World.\,Hallo World.".

Thanks for any hints.

Sebastian Meisel

Re: insert text after a char depending on next char

[Peter Dyballa]

Am 20.04.2007 um 16:17 schrieb Sebastian Meisel:

> I want emacs  to insert  "\," after a dot ("."), when no space is  
> following:

	M-x replace-regexp RET \.\([^ ]\) RET .\\,\1 RET

--
Mit friedvollen Grüßen

   Pete

Time is an illusion. Lunchtime, doubly so.

Re: insert text after a char depending on next char

[james]

On Apr 20, 9:17 am, Sebastian Meisel <sebastianmei...@web.de> wrote:
> Hallo,
>
> is the following possible in emacs, and if it is how can it be done:
>
> I want emacs  to insert  "\," after a dot ("."), when no space is following:
>
> I type: "Hallo World. Hallo World." -> emacs shall not insert anything,
> because a space is following.
> I type: "Hallo World.Hallo World." -> emacs shall insert "\," after the
> dot resulting in: "Hallo World.\,Hallo World.".
>
> Thanks for any hints.
>
> Sebastian Meisel

Something like this:

(defun qwerty()
  (interactive)
  (cond ((looking-at " ") (insert "."))
        (t (insert ".\\,"))))

(local-set-key (kbd ".") 'qwerty)


Seems like the sort of thing you'd want to add more conditions to

Re: insert text after a char depending on next char

[weber]

On 20 abr, 15:05, james <james.kings...@gmail.com> wrote:
> On Apr 20, 9:17 am, Sebastian Meisel <sebastianmei...@web.de> wrote:
>
> > Hallo,
>
> > is the following possible in emacs, and if it is how can it be done:
>
> > I want emacs  to insert  "\," after a dot ("."), when no space is following:
>
> > I type: "Hallo World. Hallo World." -> emacs shall not insert anything,
> > because a space is following.
> > I type: "Hallo World.Hallo World." -> emacs shall insert "\," after the
> > dot resulting in: "Hallo World.\,Hallo World.".
>
> > Thanks for any hints.
>
> > Sebastian Meisel
>
> Something like this:
>
> (defun qwerty()
>   (interactive)
>   (cond ((looking-at " ") (insert "."))
>         (t (insert ".\\,"))))
>
> (local-set-key (kbd ".") 'qwerty)
>
> Seems like the sort of thing you'd want to add more conditions to

At first I thought about something like that too, but you got to
realize that when he types the '.' he still has not completed the rest
of the sentence...
So it seems that the correct would be: after any keypress, look back:
if there is ". " then nothing, is there is ".H" then insert \, after
the dot...

Cheers,
weber

Re: insert text after a char depending on next char

[james]

On Apr 20, 1:55 pm, weber <hug...@gmail.com> wrote:
> On 20 abr, 15:05, james <james.kings...@gmail.com> wrote:
>
>
>
> > On Apr 20, 9:17 am, Sebastian Meisel <sebastianmei...@web.de> wrote:
>
> > > Hallo,
>
> > > is the following possible in emacs, and if it is how can it be done:
>
> > > I want emacs  to insert  "\," after a dot ("."), when no space is following:
>
> > > I type: "Hallo World. Hallo World." -> emacs shall not insert anything,
> > > because a space is following.
> > > I type: "Hallo World.Hallo World." -> emacs shall insert "\," after the
> > > dot resulting in: "Hallo World.\,Hallo World.".
>
> > > Thanks for any hints.
>
> > > Sebastian Meisel
>
> > Something like this:
>
> > (defun qwerty()
> >   (interactive)
> >   (cond ((looking-at " ") (insert "."))
> >         (t (insert ".\\,"))))
>
> > (local-set-key (kbd ".") 'qwerty)
>
> > Seems like the sort of thing you'd want to add more conditions to
>
> At first I thought about something like that too, but you got to
> realize that when he types the '.' he still has not completed the rest
> of the sentence...
> So it seems that the correct would be: after any keypress, look back:
> if there is ". " then nothing, is there is ".H" then insert \, after
> the dot...
>
> Cheers,
> weber

(defun qwerty()
  (interactive)
  (insert ".")
  (let ((c (read-event)))
    (cond
     ((eq 32 c) (insert " "))
     (t (insert (concat "\\," (make-string 1 c)))))))

Re: insert text after a char depending on next char

[weber]

On Apr 20, 6:45 pm, james <james.kings...@gmail.com> wrote:
> On Apr 20, 1:55 pm, weber <hug...@gmail.com> wrote:
>
>
>
> > On 20 abr, 15:05, james <james.kings...@gmail.com> wrote:
>
> > > On Apr 20, 9:17 am, Sebastian Meisel <sebastianmei...@web.de> wrote:
>
> > > > Hallo,
>
> > > > is the following possible in emacs, and if it is how can it be done:
>
> > > > I want emacs  to insert  "\," after a dot ("."), when no space is following:
>
> > > > I type: "Hallo World. Hallo World." -> emacs shall not insert anything,
> > > > because a space is following.
> > > > I type: "Hallo World.Hallo World." -> emacs shall insert "\," after the
> > > > dot resulting in: "Hallo World.\,Hallo World.".
>
> > > > Thanks for any hints.
>
> > > > Sebastian Meisel
>
> > > Something like this:
>
> > > (defun qwerty()
> > >   (interactive)
> > >   (cond ((looking-at " ") (insert "."))
> > >         (t (insert ".\\,"))))
>
> > > (local-set-key (kbd ".") 'qwerty)
>
> > > Seems like the sort of thing you'd want to add more conditions to
>
> > At first I thought about something like that too, but you got to
> > realize that when he types the '.' he still has not completed the rest
> > of the sentence...
> > So it seems that the correct would be: after any keypress, look back:
> > if there is ". " then nothing, is there is ".H" then insert \, after
> > the dot...
>
> > Cheers,
> > weber
>
> (defun qwerty()
>   (interactive)
>   (insert ".")
>   (let ((c (read-event)))
>     (cond
>      ((eq 32 c) (insert " "))
>      (t (insert (concat "\\," (make-string 1 c)))))))

Cool! I had never seen that!

Re: insert text after a char depending on next char

[Sebastian Meisel]

james schrieb:
> On Apr 20, 1:55 pm, weber <hug...@gmail.com> wrote:
>   
>> On 20 abr, 15:05, james <james.kings...@gmail.com> wrote:
>>
>>
>>
>>     
>>> On Apr 20, 9:17 am, Sebastian Meisel <sebastianmei...@web.de> wrote:
>>>       
>>>> Hallo,
>>>>         
>>>> is the following possible in emacs, and if it is how can it be done:
>>>>         
>>>> I want emacs  to insert  "\," after a dot ("."), when no space is following:
>>>>         
>>>> I type: "Hallo World. Hallo World." -> emacs shall not insert anything,
>>>> because a space is following.
>>>> I type: "Hallo World.Hallo World." -> emacs shall insert "\," after the
>>>> dot resulting in: "Hallo World.\,Hallo World.".
>>>>         
>>>> Thanks for any hints.
>>>>         
>>>> Sebastian Meisel
>>>>         
>>> Something like this:
>>>       
>>> (defun qwerty()
>>>   (interactive)
>>>   (cond ((looking-at " ") (insert "."))
>>>         (t (insert ".\\,"))))
>>>       
>>> (local-set-key (kbd ".") 'qwerty)
>>>       
>>> Seems like the sort of thing you'd want to add more conditions to
>>>       
>> At first I thought about something like that too, but you got to
>> realize that when he types the '.' he still has not completed the rest
>> of the sentence...
>> So it seems that the correct would be: after any keypress, look back:
>> if there is ". " then nothing, is there is ".H" then insert \, after
>> the dot...
>>
>> Cheers,
>> weber
>>     
>
> (defun qwerty()
>   (interactive)
>   (insert ".")
>   (let ((c (read-event)))
>     (cond
>      ((eq 32 c) (insert " "))
>      (t (insert (concat "\\," (make-string 1 c)))))))
>
>   
There is one last thing I'm missing to make it perfect (which that 
solution is close to): Is there a way to handle M- and C- events so they 
are evaluated not by the function, but with there standard binding?