From 6d74d713e031ebb2bb43453e4d471e6915bf11de Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 5 Oct 2001 15:16:24 +0000 Subject: [PATCH] (previous-matching-history-element): Fix misplaced parentheses. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 345db41ac9f..bf86112ce55 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -761,7 +761,7 @@ See also `minibuffer-history-case-insensitive-variables'." (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 @@ See also `minibuffer-history-case-insensitive-variables'." (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)))) -- 2.39.5