Commit 297d863b authored by Karl Heuer's avatar Karl Heuer
Browse files

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

for backward compatibility.
parent e15068c4
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment