# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 734601256 0
# Node ID d026367ad08e7b88aae35aa094416b1ec89bd4ba
# Parent  76685b00c607a9aa2d3c8aab63e178bb73c5d843
(rot13-display-table): Use `vector', not `make-rope'.

diff -r 76685b00c607 -r d026367ad08e lisp/rot13.el
--- a/lisp/rot13.el	Mon Apr 12 07:54:04 1993 +0000
+++ b/lisp/rot13.el	Mon Apr 12 07:54:16 1993 +0000
@@ -38,8 +38,8 @@
   (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.")