# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1002294984 0
# Node ID 309d26eb861658a49643fcc1be4c89a144a809b5
# Parent  c0a3d55aa5d87e751f09abe2d4bfaecf3b616ccf
(previous-matching-history-element): Fix misplaced parentheses.

diff -r c0a3d55aa5d8 -r 309d26eb8616 lisp/simple.el
--- a/lisp/simple.el	Fri Oct 05 14:05:27 2001 +0000
+++ b/lisp/simple.el	Fri Oct 05 15:16:24 2001 +0000
@@ -761,7 +761,7 @@
     (if (and (zerop minibuffer-history-position)
 	     (null minibuffer-text-before-history))
 	(setq minibuffer-text-before-history
-	      (minibuffer-contents-no-properties))
+	      (minibuffer-contents-no-properties)))
     (let ((history (symbol-value minibuffer-history-variable))
 	  (case-fold-search
 	   (if (isearch-no-upper-case-p regexp t) ; assume isearch.el is dumped
@@ -800,7 +800,7 @@
       (goto-char (point-max))
       (delete-minibuffer-contents)
       (insert match-string)
-      (goto-char (+ (minibuffer-prompt-end) match-offset)))))
+      (goto-char (+ (minibuffer-prompt-end) match-offset))))
   (if (or (eq (car (car command-history)) 'previous-matching-history-element)
 	  (eq (car (car command-history)) 'next-matching-history-element))
       (setq command-history (cdr command-history))))