procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/rot13.el (rot13-translate-table): Make it a translation-table

Browse source 
(rot13-display-table): Use `dotimes`.
This commit is contained in:
Stefan Monnier 2021-11-16 22:48:37 -05:00
parent 4c467e4aff
commit 1a4f210c24
1 changed files with 13 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
lisp/rot13.el
View file

@ -46,29 +46,23 @@
;;; Code:
(defvar rot13-display-table
(let ((table (make-display-table))
(i 0))
(while (< i 26)
(defconst rot13-display-table
(let ((table (make-display-table)))
(dotimes (i 26)
(aset table (+ i ?a) (vector (+ (% (+ i 13) 26) ?a)))
(aset table (+ i ?A) (vector (+ (% (+ i 13) 26) ?A)))
(setq i (1+ i)))
(aset table (+ i ?A) (vector (+ (% (+ i 13) 26) ?A))))
table)
"Char table for ROT13 display.")
(defvar rot13-translate-table
(let ((str (make-string 127 0))
(i 0))
(while (< i 127)
(aset str i i)
(setq i (1+ i)))
(setq i 0)
(while (< i 26)
(aset str (+ i ?a) (+ (% (+ i 13) 26) ?a))
(aset str (+ i ?A) (+ (% (+ i 13) 26) ?A))
(setq i (1+ i)))
str)
"String table for ROT13 translation.")
(put 'plain-char-table 'char-table-extra-slots 0)
(defconst rot13-translate-table
(let ((table (make-char-table 'translation-table)))
(dotimes (i 26)
(aset table (+ i ?a) (+ (% (+ i 13) 26) ?a))
(aset table (+ i ?A) (+ (% (+ i 13) 26) ?A)))
table)
"Char table for ROT13 translation.")
;;;###autoload
(defun rot13 (object &optional start end)