;; Copyright (C) 1988 Free Software Foundation, Inc.
+;; Author: Howard Gayle:
+;; Maintainer: FSF
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; 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:
+
(defvar rot13-display-table
(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)