[Emacs-diffs] Changes to emacs/lisp/abbrev.el

[Richard M. Stallman]

Index: emacs/lisp/abbrev.el
diff -c emacs/lisp/abbrev.el:1.30 emacs/lisp/abbrev.el:1.31
*** emacs/lisp/abbrev.el:1.30   Sat Jan  5 14:02:27 2002
--- emacs/lisp/abbrev.el        Wed Sep 11 23:19:25 2002
***************
*** 74,79 ****
--- 74,91 ----
        (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."