diff options
| -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)) |