Mercurial > emacs

comparison lisp/comint.el @ 864:fe5f6b7c9727

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Jul 1992 08:17:31 +0000
parents 345296f94a1e
children 1b3af6ad85be
comparison
equal deleted inserted replaced
863:427299469901 864:fe5f6b7c9727
536 536
537 (defun comint-previous-input-matching (str) 537 (defun comint-previous-input-matching (str)
538 "Searches backwards through input history for substring match." 538 "Searches backwards through input history for substring match."
539 (interactive (let* ((last-command last-command) ; preserve around r-f-m 539 (interactive (let* ((last-command last-command) ; preserve around r-f-m
540 (s (read-from-minibuffer 540 (s (read-from-minibuffer
541 (format "Command substring (default %s): " 541 (format "Command substring (default %s): "
542 comint-last-input-match)))) 542 comint-last-input-match))))
543 (list (if (string= s "") comint-last-input-match s)))) 543 (list (if (string= s "") comint-last-input-match s))))
544 ; (interactive "sCommand substring: ") 544 ; (interactive "sCommand substring: ")
545 (setq comint-last-input-match str) ; update default 545 (setq comint-last-input-match str) ; update default
546 (if (not (eq last-command 'comint-previous-input)) 546 (if (not (eq last-command 'comint-previous-input))
547 (setq comint-input-ring-index -1)) 547 (setq comint-input-ring-index -1))