diff options
| author | Richard M. Stallman <[email protected]> | 1993-05-06 18:51:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-05-06 18:51:49 +0000 |
| commit | 080478d65a338f7fd401c1497dc6702dee026391 (patch) | |
| tree | 612638da9a5ecc25e9e6642e5552d0289f9e73cc /lisp/comint.el | |
| parent | 1c71e0ff9566a51703f9e48dc774b541af53f2af (diff) | |
(comint-previous-matching-input): Use let* in the interactive.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index c787d5386e..5f6d8301c0 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)) |