Commit ad9d51b2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(copy-abbrev-table): New function.

parent 4af77d9f
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment