Mercurial > emacs

comparison lisp/rot13.el @ 2522:c93900809245

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rot13-other-window): Add autoload.
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 Apr 1993 07:49:31 +0000
parents 9e7ec92a4fdf
children d026367ad08e
comparison
equal deleted inserted replaced
2521:63c5ea74bbb9 2522:c93900809245
42 (aset table (+ i ?A) (make-rope (+ (% (+ i 13) 26) ?A))) 42 (aset table (+ i ?A) (make-rope (+ (% (+ i 13) 26) ?A)))
43 (setq i (1+ i))) 43 (setq i (1+ i)))
44 table) 44 table)
45 "Char table for rot 13 display.") 45 "Char table for rot 13 display.")
46 46
47 ;;;###autoload
47 (defun rot13-other-window () 48 (defun rot13-other-window ()
48 "Display current buffer in rot 13 in another window." 49 "Display current buffer in rot 13 in another window."
49 (interactive) 50 (interactive)
50 (let ((w (display-buffer (current-buffer) t))) 51 (let ((w (display-buffer (current-buffer) t)))
51 (set-window-display-table w rot13-display-table))) 52 (set-window-display-table w rot13-display-table)))