From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 21 Feb 1996 21:33:12 +0000 (+0000)
Subject: (derived-mode-merge-syntax-tables): Use inheritance.
X-Git-Tag: emacs-19.34~1223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dee7dae097e89eaef06e2e2cea6d3b45b376746;p=emacs.git

(derived-mode-merge-syntax-tables): Use inheritance.
---

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,