From 080478d65a338f7fd401c1497dc6702dee026391 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 6 May 1993 18:51:49 +0000 Subject: [PATCH] (comint-previous-matching-input): Use let* in the interactive. --- lisp/comint.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index c787d5386e5..5f6d8301c01 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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))