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." ...@@ -657,29 +657,31 @@ Wildcards and redirection are handled as usual in the shell."
start (1+ end))) start (1+ end)))
(concat result (substring argument start)))) (concat result (substring argument start))))
(defun make-syntax-table () (defun make-syntax-table (&optional oldtable)
"Return a new syntax table. "Return a new syntax table.
It inherits all letters and control characters from the standard It inherits all letters and control characters from the standard
syntax table; other characters are copied from the standard syntax table." syntax table; other characters are copied from the standard syntax table."
(let ((table (copy-syntax-table)) (if oldtable
i) (copy-syntax-table oldtable)
(setq i 0) (let ((table (copy-syntax-table))
(while (<= i 31) i)
(aset table i 13) (setq i 0)
(setq i (1+ i))) (while (<= i 31)
(setq i ?A) (aset table i 13)
(while (<= i ?Z) (setq i (1+ i)))
(aset table i 13) (setq i ?A)
(setq i (1+ i))) (while (<= i ?Z)
(setq i ?a) (aset table i 13)
(while (<= i ?z) (setq i (1+ i)))
(aset table i 13) (setq i ?a)
(setq i (1+ i))) (while (<= i ?z)
(setq i 128) (aset table i 13)
(while (<= i 255) (setq i (1+ i)))
(aset table i 13) (setq i 128)
(setq i (1+ i))) (while (<= i 255)
table)) (aset table i 13)
(setq i (1+ i)))
table)))
;; now in fns.c ;; now in fns.c
;(defun nth (n list) ;(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