Mercurial > emacs

changeset 2680:ac4af95b962f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-previous-matching-input): Use let* in the interactive.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 May 1993 18:51:49 +0000
parents b18c93cb19dd
children 9ebd08f578f0
files lisp/comint.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Thu May 06 18:43:12 1993 +0000
+++ b/lisp/comint.el	Thu May 06 18:51:49 1993 +0000
@@ -425,14 +425,14 @@
 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))