mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 09:16:02 -08:00
Code Issues Projects Releases Wiki Activity

(comint-previous-matching-input): Use let* in the interactive.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-06 18:51:49 +00:00
parent 1c71e0ff95
commit 080478d65a
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/comint.el
View file

@ -425,14 +425,14 @@ buffer. The hook comint-exec-hook is run after each exec."
With prefix argument N, search for Nth previous match.
If N is negative, find the next or Nth next match."
(interactive
(let ((minibuffer-history-sexp-flag nil)
;; Don't clobber this.
(last-command last-command)
(regexp (read-from-minibuffer "Previous input matching (regexp): "
nil
minibuffer-local-map
nil
'minibuffer-history-search-history)))
(let* ((minibuffer-history-sexp-flag nil)
;; Don't clobber this.
(last-command last-command)
(regexp (read-from-minibuffer "Previous input matching (regexp): "
nil
minibuffer-local-map
nil
'minibuffer-history-search-history)))
(list (if (string= regexp "")
(setcar minibuffer-history-search-history
(nth 1 minibuffer-history-search-history))