# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757582860 0
# Node ID a248a39fa4b893c36580167eea3bfdb5311c4ae8
# Parent  a5e2d8c441440e2ee03238ca51535d96a6f9efee
(make-syntax-table): New function; no longer an alias
for copy-syntax-table.

diff -r a5e2d8c44144 -r a248a39fa4b8 lisp/subr.el
--- a/lisp/subr.el	Mon Jan 03 07:21:12 1994 +0000
+++ b/lisp/subr.el	Mon Jan 03 07:41:00 1994 +0000
@@ -403,7 +403,6 @@
 
 ;;;; Obsolescent names for functions.
 
-(defalias 'make-syntax-table 'copy-syntax-table)
 (defalias 'dot 'point)
 (defalias 'dot-marker 'point-marker)
 (defalias 'dot-min 'point-min)
@@ -655,6 +654,30 @@
 	    start (1+ end)))
     (concat result (substring argument start))))
 
+(defun make-syntax-table ()
+  "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))
+
 ;; now in fns.c
 ;(defun nth (n list)
 ;  "Returns the Nth element of LIST.