From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Reiner Steib <4uce.02.r.steib@gmx.net>
Newsgroups: gmane.emacs.help
Subject: Re: Regular expression - replace lower case to upper case
Date: Fri, 01 Nov 2002 20:34:29 +0100
Organization: private
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <v9smylulru.fsf@marauder.physik.uni-ulm.de>
References: <apslo1$iuj$1@mulga.cs.mu.OZ.AU> <m31y66koha.fsf@localhost.localdomain>
Reply-To: reiner.steib@gmx.de
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1036185392 12989 80.91.224.249 (1 Nov 2002 21:16:32 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 1 Nov 2002 21:16:32 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 187j9b-0003NM-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Fri, 01 Nov 2002 22:16:31 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 187j9E-0006b4-00; Fri, 01 Nov 2002 16:16:08 -0500
Original-Newsgroups: gnu.emacs.help
X-Face: 3Phac&+dw=IZHjhua]bp}LH<*p{qzj8u+<OV~fQY=S61n*cJ|<hmq6\]&vOTQs+z`}WHHM/
 E?ZYqI^aM0-^*)pWU&1tb.Tw}GDqeE.+(!jEP8@b&IcxNU1QQz%1d1;aeOzyizTPc;q(88/ar*bN|S
 IU"]xqU`R)i%Jp-lu3<!7QjP@,9xqE@*G{3ESw3x#1N1?,(r0&q(1LKm)hS@d89lfo+'=Y$#7"g<&v
 hNp|fgfb<eK="G5fxvZ3FyyWQNI9JL+C<g
Mail-Copies-To: nobody
Original-Lines: 34
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.1 (i586-pc-linux-gnu)
Cancel-Lock: sha1:rhyQruey6HeFRI1xwOlwI+Z3Fpk=
Original-NNTP-Posting-Host: bacdb.pppool.de
Original-X-Trace: news.uni-ulm.de 1036183716 bacdb.pppool.de (1 Nov 2002 21:48:36 +0100)
X-Authenticated-User: rsteib
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!news-fra1.dfn.de!news-stu1.dfn.de!news.belwue.de!news.uni-ulm.de!marauder.physik.uni-ulm.de!not-for-mail
Original-Xref: shelby.stanford.edu gnu.emacs.help:106667
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:3218
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:3218

On Fri, Nov 01 2002, Michael Slass wrote:

> Try this:
>
> (defun upcase-html-tags (buf)
>  (interactive "*bUpcase html tags in buffer: ")
[...]
>       (message "upcased %d html tags" counter)))) 

Nice. I changed your function slighly: include closing tags (</foo>),
always use current buffer. Because I prefer lowercase tags, you need
do give a prefix argument, if you want uppercase tags:

M-x rs-html-downcase-or-upcase-tags RET     --> downcase buffer
C-u M-x rs-html-downcase-or-upcase-tags RET --> upcase buffer

(defun rs-html-downcase-or-upcase-tags (&optional upcase)
  "Downcase html-tags in curent buffer.  If given a prefix, upcase tags."
  (interactive "P")
  (save-excursion
    (goto-char (point-min))
    (let ((counter 0))
      (while (re-search-forward "</?\\(\\w+\\)>" nil t)
	(funcall
	 (if upcase 'upcase-region 'downcase-region)
	 (match-beginning 1) (match-end 1))
	(setq counter (1+ counter)))
      (message "%scased %d html-tags" (if upcase "up" "down") counter))))

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/