Mercurial > emacs
comparison lisp/eshell/em-hist.el @ 59196:a2a95f34b949
(eshell-previous-matching-input):
Start the deletion from the end of the output.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Dec 2004 01:47:35 +0000 |
| parents | f243dc772a99 |
| children | 18a818a2ee7c 95879cc1ed20 |
comparison
equal
deleted
inserted
replaced
| 59195:d299cf144f86 | 59196:a2a95f34b949 |
|---|---|
| 838 (error "Not found") | 838 (error "Not found") |
| 839 (setq eshell-history-index pos) | 839 (setq eshell-history-index pos) |
| 840 (unless (minibuffer-window-active-p (selected-window)) | 840 (unless (minibuffer-window-active-p (selected-window)) |
| 841 (message "History item: %d" (- (ring-length eshell-history-ring) pos))) | 841 (message "History item: %d" (- (ring-length eshell-history-ring) pos))) |
| 842 ;; Can't use kill-region as it sets this-command | 842 ;; Can't use kill-region as it sets this-command |
| 843 (delete-region (save-excursion (eshell-bol) (point)) (point)) | 843 (delete-region eshell-last-output-end (point)) |
| 844 (insert-and-inherit (eshell-get-history pos))))) | 844 (insert-and-inherit (eshell-get-history pos))))) |
| 845 | 845 |
| 846 (defun eshell-next-matching-input (regexp arg) | 846 (defun eshell-next-matching-input (regexp arg) |
| 847 "Search forwards through input history for match for REGEXP. | 847 "Search forwards through input history for match for REGEXP. |
| 848 \(Later history elements are more recent commands.) | 848 \(Later history elements are more recent commands.) |