Re: rot13-other-window
Tim Connors wrote:
Unfortunately, typing into the other window when using
rot13-other-window
doesn't do anything very sensible -- it just enters straight unrotted text
into the buffer being viewed (well actually, it's probably applying rot1
26 times :). Anyone got any patches to make entry into that other window
become rot13'd into the real buffer?
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