Re: emulate readline

[Kevin Rodgers]

On 4/6/11 1:01 PM, fork wrote:
>   <despen<at>  verizon.net>  writes:
> > M-p
>
> That doesn't match -- if I type "eva" I should be able to get "eval-region"
> (since that is in my history), but it gives me my latest command "pa" instead.

M-r REGEXP RET e.g. M-r eva RET

The missing functionality is to get M-r (previous-matching-history-element) to
use the current minibuffer contents as REGEXP, possibly anchored to only match
commands that begin with that.

Here's what I came up with:

;; Like previous-matching-history-element, but use the current minibuffer
;; contents as REGEXP:
(defun previous-matching-history-element-default ()
  (interactive)
  (previous-matching-history-element (concat "\\`" (regexp-quote
                                                    (minibuffer-contents)))
                                     (prefix-numeric-value current-prefix-arg)))

;; Bind to M-R to preserve M-r:
(define-key minibuffer-local-map "\M-R" 
'previous-matching-history-element-default)

For completeness, define next-matching-history-element-default to call
next-matching-history-element, and bind it to M-S.

--
Kevin Rodgers
Denver, Colorado, USA