rot13-other-window

[Aidan Kehoe]

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)