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,10 +657,12 @@ Wildcards and redirection are handled as usual in the shell." ...@@ -657,10 +657,12 @@ 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."
(if oldtable
(copy-syntax-table oldtable)
(let ((table (copy-syntax-table)) (let ((table (copy-syntax-table))
i) i)
(setq i 0) (setq i 0)
...@@ -679,7 +681,7 @@ syntax table; other characters are copied from the standard syntax table." ...@@ -679,7 +681,7 @@ syntax table; other characters are copied from the standard syntax table."
(while (<= i 255) (while (<= i 255)
(aset table i 13) (aset table i 13)
(setq i (1+ i))) (setq i (1+ i)))
table)) 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