# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 727981188 0
# Node ID 32248d533b4b6efb6f2d81da1ead9763a9ab450e
# Parent  3e4f8b1da4e98f2e7dd944c67d6531949e2e2d83
(next-complete-history-element): Use only buffer contents before point
to match history elements.

diff -r 3e4f8b1da4e9 -r 32248d533b4b lisp/simple.el
--- a/lisp/simple.el	Mon Jan 25 00:45:01 1993 +0000
+++ b/lisp/simple.el	Mon Jan 25 16:59:48 1993 +0000
@@ -536,8 +536,8 @@
   "\
 Get previous element of history which is a completion of minibuffer contents."
   (interactive "p")
-  (next-matching-history-element (concat "^" (regexp-quote (buffer-string)))
-				 n))
+  (next-matching-history-element
+   (concat "^" (regexp-quote (buffer-substring (point-min) (point)))) n))
 
 (defun previous-complete-history-element (n)
   "Get next element of history which is a completion of minibuffer contents."