# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760683967 0
# Node ID 445de172c217a3c35d906cd99ffdac4a0020f3df
# Parent  d01185037467b992591f3b78b30ab77f749ec345
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
for backward compatibility.

diff -r d01185037467 -r 445de172c217 lisp/subr.el
--- a/lisp/subr.el	Tue Feb 08 04:53:09 1994 +0000
+++ b/lisp/subr.el	Tue Feb 08 05:06:07 1994 +0000
@@ -657,29 +657,31 @@
 	    start (1+ end)))
     (concat result (substring argument start))))
 
-(defun make-syntax-table ()
+(defun make-syntax-table (&optional oldtable)
   "Return a new syntax table.
 It inherits all letters and control characters from the standard
 syntax table; other characters are copied from the standard syntax table."
-  (let ((table (copy-syntax-table))
-	i)
-    (setq i 0)
-    (while (<= i 31)
-      (aset table i 13)
-      (setq i (1+ i)))
-    (setq i ?A)
-    (while (<= i ?Z)
-      (aset table i 13)
-      (setq i (1+ i)))
-    (setq i ?a)
-    (while (<= i ?z)
-      (aset table i 13)
-      (setq i (1+ i)))
-    (setq i 128)
-    (while (<= i 255)
-      (aset table i 13)
-      (setq i (1+ i)))
-    table))
+  (if oldtable
+      (copy-syntax-table oldtable)
+    (let ((table (copy-syntax-table))
+	  i)
+      (setq i 0)
+      (while (<= i 31)
+	(aset table i 13)
+	(setq i (1+ i)))
+      (setq i ?A)
+      (while (<= i ?Z)
+	(aset table i 13)
+	(setq i (1+ i)))
+      (setq i ?a)
+      (while (<= i ?z)
+	(aset table i 13)
+	(setq i (1+ i)))
+      (setq i 128)
+      (while (<= i 255)
+	(aset table i 13)
+	(setq i (1+ i)))
+      table)))
 
 ;; now in fns.c
 ;(defun nth (n list)