;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:50:04 1995
;;; from file /gd/gnu/emacs/19.0/lisp/rot13.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/rot13.el' was compiled for Emacs 19"))


#@32 Char table for rot 13 display.
(defvar rot13-display-table (byte-code "À Á\nÄWƒ0 \nÅ\\Æ\nÇ\\Ä¦Å\\!Iˆ\nÈ\\Æ\nÇ\\Ä¦È\\!Iˆ\nT‰‚ *‡" [make-display-table 0 i table 26 97 vector 13 65] 6) (#$ . 479))
#@105 Display current buffer in rot 13 in another window.
To terminate the rot13 display, delete that window.
(defalias 'rot13-other-window #[nil "ÀpÁ\"Ã\n\f\")‡" [display-buffer t w set-window-display-table rot13-display-table] 3 (#$ . 687) nil])
#@59 Toggle the use of rot 13 encoding for the current window.
(defalias 'toggle-rot13-mode #[nil "ÀÁ !\n=ƒ ÃÁ Ä\"‡ÀÁ !?… ÃÁ \n\"‡" [window-display-table selected-window rot13-display-table set-window-display-table nil] 3 (#$ . 936) nil])
(provide (quote rot13))