# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791239640 0
# Node ID fa604ffe7e3f5b5d8ae602de9814220c74b2b084
# Parent  275f62e27ee2ec06c674f76940e0cd683fc56fc8
(match-string): Delete extra arg to buffer-substring.

diff -r 275f62e27ee2 -r fa604ffe7e3f lisp/subr.el
--- a/lisp/subr.el	Fri Jan 27 19:30:46 1995 +0000
+++ b/lisp/subr.el	Fri Jan 27 20:47:20 1995 +0000
@@ -888,7 +888,7 @@
 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."