changeset 5844:445de172c217

(make-syntax-table): Behave like copy-syntax-table if an argument is given, for backward compatibility.

--- 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)