Function: copy-case-table

copy-case-table is a byte-compiled function defined in case-table.el.gz.

Signature

(copy-case-table CASE-TABLE)

Source Code

;; Defined in /usr/src/emacs/lisp/case-table.el.gz
(defun copy-case-table (case-table)
  (let ((copy (copy-sequence case-table))
	(up (char-table-extra-slot case-table 0)))
    ;; Clear out the extra slots (except for upcase table) so that
    ;; they will be recomputed from the main (downcase) table.
    (if up
	(set-char-table-extra-slot copy 0 (copy-sequence up)))
    (set-char-table-extra-slot copy 1 nil)
    (set-char-table-extra-slot copy 2 nil)
    copy))