Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/5/84; site reed.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!houxm!vax135!cornell!uw-beaver!tektronix!reed!agb
From: agb@reed.UUCP (Alexander G. Burchell)
Newsgroups: net.jokes.d,net.emacs
Subject: ROT13 functions for Gosling EMACS
Message-ID: <2173@reed.UUCP>
Date: Thu, 21-Nov-85 01:15:29 EST
Article-I.D.: reed.2173
Posted: Thu Nov 21 01:15:29 1985
Date-Received: Sat, 23-Nov-85 03:13:37 EST
Reply-To: agb@reed.UUCP (Alexander G. Burchell)
Organization: Ancient Illuminated Seers of Bavaria
Lines: 28
Xref: watmath net.jokes.d:1238 net.emacs:1467

Folks --

	Here is some fun and useful code for Gosling EMACS.  To use it,
just get in your file, and either set the mark at the start of the text
to be rotated (usually ^@), then go to the end of it and use "rot13-region".
Or, you may rotate the entire buffer with "rot13".

(defun
   (rot13 odot
	  (setq odot (dot))
	  (message "Rotating buffer")
	  (sit-for 0)
	  (beginning-of-file)
	  (set-mark)
	  (end-of-file)
	  (rot13-region)
	  (goto-character odot))
   (rot13-region
	  (filter-region "tr A-Za-z N-ZA-Mn-za-m")
	  (message "done"))
)

Have Fun!

					Alexander G. Burchell
						
UUCP:	..!{decvax,ucbvax,hplabs,ihnp4,zehntel}!tektronix!reed!agb
MAIL:	Box 172, Reed College, 3203 SE Woodstock Dr., Portland OR 97202