840 |
(unless (minibuffer-window-active-p (selected-window)) |
(unless (minibuffer-window-active-p (selected-window)) |
841 |
(message "History item: %d" (- (ring-length eshell-history-ring) pos))) |
(message "History item: %d" (- (ring-length eshell-history-ring) pos))) |
842 |
;; Can't use kill-region as it sets this-command |
;; Can't use kill-region as it sets this-command |
843 |
(delete-region (save-excursion (eshell-bol) (point)) (point)) |
(delete-region eshell-last-output-end (point)) |
844 |
(insert-and-inherit (eshell-get-history pos))))) |
(insert-and-inherit (eshell-get-history pos))))) |
845 |
|
|
846 |
(defun eshell-next-matching-input (regexp arg) |
(defun eshell-next-matching-input (regexp arg) |