Mercurial > emacs

changeset 6886:d4010211153e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-replace-by-expanded-history-before-point): Advance point unconditionally.
author Karl Heuer <kwzh@gnu.org>
date Thu, 14 Apr 1994 20:16:54 +0000
parents 3c007de39916
children 9888d3b32db3
files lisp/comint.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Thu Apr 14 19:19:30 1994 +0000
+++ b/lisp/comint.el	Thu Apr 14 20:16:54 1994 +0000
@@ -924,10 +924,11 @@
 			     (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)