diff options
| author | Richard M. Stallman | 1993-05-06 18:51:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-06 18:51:49 +0000 |
| commit | 080478d65a338f7fd401c1497dc6702dee026391 (patch) | |
| tree | 612638da9a5ecc25e9e6642e5552d0289f9e73cc | |
| parent | 1c71e0ff9566a51703f9e48dc774b541af53f2af (diff) | |
| download | emacs-080478d65a338f7fd401c1497dc6702dee026391.tar.gz emacs-080478d65a338f7fd401c1497dc6702dee026391.zip | |
(comint-previous-matching-input): Use let* in the interactive.
| -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 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." | |||
| 425 | With prefix argument N, search for Nth previous match. | 425 | With prefix argument N, search for Nth previous match. |
| 426 | If N is negative, find the next or Nth next match." | 426 | If N is negative, find the next or Nth next match." |
| 427 | (interactive | 427 | (interactive |
| 428 | (let ((minibuffer-history-sexp-flag nil) | 428 | (let* ((minibuffer-history-sexp-flag nil) |
| 429 | ;; Don't clobber this. | 429 | ;; Don't clobber this. |
| 430 | (last-command last-command) | 430 | (last-command last-command) |
| 431 | (regexp (read-from-minibuffer "Previous input matching (regexp): " | 431 | (regexp (read-from-minibuffer "Previous input matching (regexp): " |
| 432 | nil | 432 | nil |
| 433 | minibuffer-local-map | 433 | minibuffer-local-map |
| 434 | nil | 434 | nil |
| 435 | 'minibuffer-history-search-history))) | 435 | 'minibuffer-history-search-history))) |
| 436 | (list (if (string= regexp "") | 436 | (list (if (string= regexp "") |
| 437 | (setcar minibuffer-history-search-history | 437 | (setcar minibuffer-history-search-history |
| 438 | (nth 1 minibuffer-history-search-history)) | 438 | (nth 1 minibuffer-history-search-history)) |