diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-02-21 21:33:12 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-02-21 21:33:12 +0000 |
| commit | 5dee7dae097e89eaef06e2e2cea6d3b45b376746 (patch) | |
| tree | effd9985dd837755b3f58f8483f44ec54eae5a11 | |
| parent | fa660969617d1904b4040148c79d936c6e50692e (diff) | |
| download | emacs-5dee7dae097e89eaef06e2e2cea6d3b45b376746.tar.gz emacs-5dee7dae097e89eaef06e2e2cea6d3b45b376746.tar.bz2 emacs-5dee7dae097e89eaef06e2e2cea6d3b45b376746.zip | |
(derived-mode-merge-syntax-tables): Use inheritance.
| -rw-r--r-- | lisp/derived.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/derived.el b/lisp/derived.el index d27c2b333f1..6db92e85408 100644 --- a/lisp/derived.el +++ b/lisp/derived.el @@ -331,11 +331,7 @@ be automatic inheritance." (defun derived-mode-merge-syntax-tables (old new) "Merge an old syntax table into a new one. Where the new table already has an entry, nothing is copied from the old one." - (map-char-table - (function (lambda (key value) - (or (char-table-range new key) - (set-char-table-range new key value)))) - old)) + (set-char-table-parent new old)) ;; Merge an old abbrev table into a new one. ;; This function requires internal knowledge of how abbrev tables work, |