(copy-abbrev-table): New function.

1 files changed, 12 insertions, 0 deletions

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 25bfcf7058..8e6b3ae69d 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -74,6 +74,18 @@ buffer."
       (clear-abbrev-table (symbol-value (car tables)))
       (setq tables (cdr tables)))))
 
+(defun copy-abbrev-table (table)
+  "Make a new abbrev-table with the same abbrevs as TABLE."
+  (let ((new-table (make-abbrev-table)))
+    (mapatoms
+     (lambda (symbol)
+       (define-abbrev new-table
+	 (symbol-name symbol)
+	 (symbol-value symbol)
+	 (symbol-function symbol)))
+     table)
+    new-table))
+
 (defun insert-abbrevs ()
   "Insert after point a description of all defined abbrevs.
 Mark is set after the inserted text."