Tim Connors wrote: This doesn't do quite what you *describe,* but it should suffice for what you *want*. Needs Mule, and the Quail package. To enable, hit C-u C-\ rot13 RET , and start typing; to disable, hit C-\ on its own. (require 'quail) (quail-define-package "rot13" "rot13" "r13" nil "ROT-13 input method. Alphabetic characters are moved 13 places in the alphabet on input. ") (let ((i -1) (a (char-to-int ?a)) (A (char-to-int ?A))) (while (< (incf i) 26) (quail-defrule (string (+ i a)) (char-to-string (int-to-char (+ (% (+ i 13) 26) a)))) (quail-defrule (string (+ i A)) (char-to-string (int-to-char (+ (% (+ i 13) 26) A)))))) -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta