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

for backward compatibility.

diff --git a/lisp/subr.el b/lisp/subr.el
index d47949ce419095dcf6a74ad2255e6169cde5297c..2817d9237ded820dcf54b08b858354751bf2baa4 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -657,29 +657,31 @@ Wildcards and redirection are handled as usual in the shell."
            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)