Lines Matching defs:table
353 ;; ---- An auxiliary function building a one-to-one recoding table -----
355 (defun ogonek-build-table (recoding-pairs)
356 "Build a table required by Emacs's `translate-region' function.
362 (let ((table (make-string 256 0))
365 (aset table i i)
367 ;; make changes in `table' according to `recoding-pairs'
369 (aset table (car (car recoding-pairs)) (cdr (car recoding-pairs)))
371 ;; return the table just built
372 table))
389 (ogonek-build-table