From 5a336c131fe8d05d724ead90967a6ab8573ae951 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 14 Apr 1994 20:16:54 +0000 Subject: [PATCH] (comint-replace-by-expanded-history-before-point): Advance point unconditionally. --- lisp/comint.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index dedc99a5144..2e05548ae40 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -924,10 +924,11 @@ See `comint-replace-by-expanded-history'. Returns t if successful." (comint-previous-matching-input-string-position (concat pref (regexp-quote exp)) 1)))) (if (null pos) - (or silent - (progn (message "Not found") - (goto-char (match-end 0)) - (ding))) + (progn + (goto-char (match-end 0)) + (or silent + (progn (message "Not found") + (ding)))) (setq comint-input-ring-index pos) (replace-match (comint-args (ring-ref comint-input-ring pos) -- 2.39.5