From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 14 Apr 1994 20:16:54 +0000 (+0000)
Subject: (comint-replace-by-expanded-history-before-point): Advance point
X-Git-Tag: emacs-19.34~8967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a336c131fe8d05d724ead90967a6ab8573ae951;p=emacs.git

(comint-replace-by-expanded-history-before-point): Advance point
unconditionally.
---

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)