From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 3 Jan 1994 07:41:00 +0000 (+0000)
Subject: (make-syntax-table): New function; no longer an alias
X-Git-Tag: emacs-19.34~10430
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=984f718a65b057dd63c3c3a5fd8ce9da5b87e2bb;p=emacs.git

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

diff --git a/lisp/subr.el b/lisp/subr.el
index fce4a56e79b..943c82f4941 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -403,7 +403,6 @@ as returned by the `event-start' and `event-end' functions."
 
 ;;;; 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.