Function: copy-abbrev-table

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

Signature

(copy-abbrev-table TABLE)

Documentation

Make a new abbrev-table with the same abbrevs as TABLE.

This function does not copy property lists of the abbrevs. See define-abbrev for the documentation of abbrev properties.

View in manual

Probably introduced at or before Emacs version 22.1.

Source Code

;; Defined in /usr/src/emacs/lisp/abbrev.el.gz
(defun copy-abbrev-table (table)
  "Make a new abbrev-table with the same abbrevs as TABLE.
This function does not copy property lists of the abbrevs.
See `define-abbrev' for the documentation of abbrev properties."
  (let ((new-table (make-abbrev-table)))
    (obarray-map
     (lambda (symbol)
       (define-abbrev new-table
	 (symbol-name symbol)
	 (symbol-value symbol)
	 (symbol-function symbol)))
     table)
    new-table))