force upper case of matched regex text pattern

force upper case of matched regex text pattern

[xahlee]

is there a way to force to upper case of a matched regex text pattern?

(i recall having seen it somewhere)

Currently, what i'm doing is to write my own replacement function that
change the case like this:

(defun upcase-matched ()
  "Returns the upcase of matched text."
  (let (m1 returnText)
    (setq m1 (upcase (buffer-substring (match-beginning 1) (match-end
1))))
    (setq returnText (concat "<p>" m1 ))
    returnText
  )
)

then use “\,(upcase-matched)” for the replacement text.

PS I wrote a tutorial on this

 http://xahlee.org/emacs/emacs_find_replace.html

  Xah
  xah@xahlee.org
∑ http://xahlee.org/

☄

Re: force upper case of matched regex text pattern

[Andreas Röhler]

Am Donnerstag, 13. März 2008 04:12 schrieb xahlee@gmail.com:
> (defun upcase-matched ()
>   "Returns the upcase of matched text."
>   (let (m1 returnText)
>     (setq m1 (upcase (buffer-substring (match-beginning 1) (match-end
> 1))))
>     (setq returnText (concat "<p>" m1 ))
>     returnText
>   )
> )
> 


Maybe I miss your point:

you should be able to write something like

(concat "<p>" (upcase obj))

where obj is `match-string'


Andreas Röhler

Re: force upper case of matched regex text pattern

[Xah]

Xah wrote:
 (buffer-substring (match-beginning 1) (match-end 1))

Andreas Röhler wrote:
 (match-string 1)

Thanks. That's much simpler.

  Xah
  xah@xahlee.org
∑ http://xahlee.org/

☄


On Mar 13, 1:53 am, Andreas Röhler <andreas.roeh...@online.de> wrote:
> Am Donnerstag, 13. März 2008 04:12 schrieb xah...@gmail.com:
>
> > (defun upcase-matched ()
> >   "Returns the upcase of matched text."
> >   (let (m1 returnText)
> >     (setq m1 (upcase (buffer-substring (match-beginning 1) (match-end
> > 1))))
> >     (setq returnText (concat "<p>" m1 ))
> >     returnText
> >   )
> > )
>
> Maybe I miss your point:
>
> you should be able to write something like
>
> (concat "<p>" (upcase obj))
>
> where obj is `match-string'
>
> Andreas Röhler

Re: force upper case of matched regex text pattern

[Niels Giesen]

"xahlee@gmail.com" <xahlee@gmail.com> writes:

> is there a way to force to upper case of a matched regex text pattern?
>

C-M-% your_regexp RET \,(upcase \num_of_match)

> (i recall having seen it somewhere)
>
> Currently, what i'm doing is to write my own replacement function that
> change the case like this:
>
> (defun upcase-matched ()
>   "Returns the upcase of matched text."
>   (let (m1 returnText)
>     (setq m1 (upcase (buffer-substring (match-beginning 1) (match-end
> 1))))
>     (setq returnText (concat "<p>" m1 ))
>     returnText
>   )
> )
>
> then use “\,(upcase-matched)” for the replacement text.

so:

C-M-% your_regexp RET \,(upcase <p>\0) 

...for instance

>
> PS I wrote a tutorial on this
>
>  http://xahlee.org/emacs/emacs_find_replace.html

please rewrite it, because as you see, you can refer to (sub)matches in the
\,() environment ;)
>
>   Xah
>   xah@xahlee.org
> ∑ http://xahlee.org/
>
> ☄

-- 
http://niels.kicks-ass.org

Re: force upper case of matched regex text pattern

[Xah Lee]

Niels Giesen:
«C-M-% your_regexp RET <p>\,(upcase \1)

...
please rewrite it, because as you see, you can refer to (sub)matches
in the \,() environment ;)
»

That's what i was looking for!

Corrected. Thanks.

  Xah
  xah@xahlee.org
∑ http://xahlee.org/

☄