Mercurial > emacs

changeset 2524:d026367ad08e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rot13-display-table): Use `vector', not `make-rope'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 Apr 1993 07:54:16 +0000
parents 76685b00c607
children 6cf2344e6e7e
files lisp/rot13.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.")