From 984f718a65b057dd63c3c3a5fd8ce9da5b87e2bb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 3 Jan 1994 07:41:00 +0000 Subject: [PATCH] (make-syntax-table): New function; no longer an alias for copy-syntax-table. --- lisp/subr.el | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) 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. -- 2.39.5