# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777856989 0
# Node ID fe49c4bb99d48606ec8226b510e1bd4f9ace51cb
# Parent  00437255eed79f6aaad1811dccf1ab61c721bace
(toggle-rot13-mode): New function.

diff -r 00437255eed7 -r fe49c4bb99d4 lisp/rot13.el
--- a/lisp/rot13.el	Thu Aug 25 22:55:25 1994 +0000
+++ b/lisp/rot13.el	Thu Aug 25 23:23:09 1994 +0000
@@ -52,6 +52,15 @@
   (let ((w (display-buffer (current-buffer) t)))
     (set-window-display-table w rot13-display-table)))
 
+;;;###autoload
+(defun toggle-rot13-mode ()
+  "Toggle the use of rot 13 encoding for the current window."
+  (interactive)
+  (if (eq (window-display-table (selected-window)) rot13-display-table)
+      (set-window-display-table (selected-window) nil)
+    (if (null (window-display-table (selected-window)))
+	(set-window-display-table (selected-window) rot13-display-table))))
+
 (provide 'rot13)
 
 ;;; rot13.el ends here