(match-string): Delete extra arg to buffer-substring.

diff --git a/lisp/subr.el b/lisp/subr.el
index 21438419302b1a88c2c3d7fc6b1e8b38a3c6fd7f..5d5470f9e24eac4b87752dd0d8d78d77374b6493 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -888,7 +888,7 @@ If the last search or match was done against a string,
 specify that string as the second argument STRING."
   (if string
       (substring string (match-beginning 0) (match-end 0))
-    (buffer-substring string (match-beginning 0) (match-end 0))))
+    (buffer-substring (match-beginning 0) (match-end 0))))
 
 (defun shell-quote-argument (argument)
   "Quote an argument for passing as argument to an inferior shell."