mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
unconditionally.
This commit is contained in:
Karl Heuer 1994-04-14 20:16:54 +00:00
parent 7b2db0a013
commit 5a336c131f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/comint.el
View File

@ -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)