Accept 1-arg 'substring' calls in byte compiler

Those have been supported by the function implementation since
commit 2014-03-31T12:06:34Z!dmantipov@yandex.ru (Bug#33807).
* lisp/emacs-lisp/bytecomp.el: substring has 1-3 args, not 2-3.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index c0a764bafca41d6cf0048f4c84299c70491a2c56..43f2289ab7c159dbe7cea3908dec9f49d93716b9 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3534,7 +3534,7 @@ If it is nil, then the handler is \"byte-compile-SYMBOL.\""
 (byte-defop-compiler (>= byte-geq)     2-and)
 (byte-defop-compiler get               2)
 (byte-defop-compiler nth               2)
-(byte-defop-compiler substring         2-3)
+(byte-defop-compiler substring         1-3)
 (byte-defop-compiler (move-marker byte-set-marker) 2-3)
 (byte-defop-compiler set-marker        2-3)
 (byte-defop-compiler match-beginning   1)