;; Commentary:
+;; The single entry point, `rot13-other-window', oerforms a Caesar cipher
+;; encrypt/decrypt on the current buffer and displays the result in another
+;; window. Rot13 encryption is sometimes used on USENET as a read-at-yur-
+;; own-risk wrapper for material some might consider offensive, such as
+;; ethnic humor.
+;;
;; Written by Howard Gayle. See case-table.el for details.
-
;; This hack is mainly to show off the char table stuff.
;;; Code:
(let ((table (make-display-table))
(i 0))
(while (< i 26)
- (aset table (+ i ?a) (make-rope (+ (% (+ i 13) 26) ?a)))
- (aset table (+ i ?A) (make-rope (+ (% (+ i 13) 26) ?A)))
+ (aset table (+ i ?a) (vector (+ (% (+ i 13) 26) ?a)))
+ (aset table (+ i ?A) (vector (+ (% (+ i 13) 26) ?A)))
(setq i (1+ i)))
table)
"Char table for rot 13 display.")
+;;;###autoload
(defun rot13-other-window ()
"Display current buffer in rot 13 in another window."
(interactive)