Function: derived-mode-merge-abbrev-tables

derived-mode-merge-abbrev-tables is a byte-compiled function defined in derived.el.gz.

Signature

(derived-mode-merge-abbrev-tables OLD NEW)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/derived.el.gz
;; Merge an old abbrev table into a new one.
;; This function requires internal knowledge of how abbrev tables work,
;; presuming that they are obarrays with the abbrev as the symbol, the expansion
;; as the value of the symbol, and the hook as the function definition.
(defun derived-mode-merge-abbrev-tables (old new)
  (if old
      (mapatoms
       (lambda (symbol)
	 (or (intern-soft (symbol-name symbol) new)
	     (define-abbrev new (symbol-name symbol)
	       (symbol-value symbol) (symbol-function symbol))))
       old)))