Re: Why do I need to eval this?

[HS]

Interessante a sua idéia, mas acho que não consegui fazer funcionar.
Agora me diz se você sabe fazer isto:
Eu queria que todas palavras terminando em `ao` fossem substituidas por
`ão` assim eu poderia escrever chao, nao, coracao e elas seriam
arrumadas na hora.
Normalmente eu resolvo isto com as abbrevs, mas neste caso é uma
regex, então nao sei.
Você tem alguma idéia ?
Sds
Hugo


Arnaldo Mandel escreveu:

> Here is a short utility command that is useful to those writing
> Portuguese on US keyboards:
>
> (defun crases (daqui)
>   "Offers all grave-accented chars to be corrected to the corresponding tilda.
> Argument DAQUI starts search from point."
>   (interactive "P")
>   (let ((start (if daqui (point) (point-min))))
>     (save-excursion
>       (query-replace-regexp-eval "[àòÀÒ]"
>                                  '(cdr (assoc (match-string-no-properties 0)
>                                               '(("à" . "ã") ("ò" . "õ")
>                                                 ("À" . "Ã") ("Ò" . "Õ"))))
>                                  nil start (point-max)))))
>
> If I either byte-compile it or load it uncompiled from a file, it
> doesn't work: it finds the characters that have to be replaced,
> but replaces with nil.  On the other hand, if I eval this expression
> (C-x C-e), it works perfectly.  The behavior is the same in emacs 21
> and 22.
>
> Any idea on what is going on?
>
> am
> 
> -- 
> Arnaldo Mandel                        
> am@ime.usp.br