(make-syntax-table): New function; no longer an alias

for copy-syntax-table.

diff --git a/lisp/subr.el b/lisp/subr.el
index fce4a56e79bfee3ea030c8fdb072338a980de427..943c82f49415c688e88abdd8c85dbaeabbe2c15f 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -403,7 +403,6 @@ as returned by the `event-start' and `event-end' functions."
 \f
 ;;;; 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 @@ Wildcards and redirection are handle as usual in the shell."
            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.