mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(previous-matching-history-element): Fix misplaced parentheses.

Browse Source
This commit is contained in:
Miles Bader 2001-10-05 15:16:24 +00:00
parent 20a8200954
commit 6d74d713e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/simple.el
View File

@ -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))))