Mercurial > emacs
comparison lisp/comint.el @ 5323:44a59f6e114e
(comint-next-matching-input-from-input): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Dec 1993 02:40:33 +0000 |
| parents | 9c8749be37da |
| children | 51eecae04837 |
comparison
equal
deleted
inserted
replaced
| 5322:f2e4b574a4e9 | 5323:44a59f6e114e |
|---|---|
| 826 | 826 |
| 827 (defun comint-previous-matching-input-from-input (arg) | 827 (defun comint-previous-matching-input-from-input (arg) |
| 828 "Search backwards through input history for match for current input. | 828 "Search backwards through input history for match for current input. |
| 829 \(Previous history elements are earlier commands.) | 829 \(Previous history elements are earlier commands.) |
| 830 With prefix argument N, search for Nth previous match. | 830 With prefix argument N, search for Nth previous match. |
| 831 If N is negative, find the next or Nth next match." | 831 If N is negative, search forwards for the -Nth following match." |
| 832 (interactive "p") | 832 (interactive "p") |
| 833 (if (not (memq last-command '(comint-previous-matching-input-from-input | 833 (if (not (memq last-command '(comint-previous-matching-input-from-input |
| 834 comint-next-matching-input-from-input))) | 834 comint-next-matching-input-from-input))) |
| 835 ;; Starting a new search | 835 ;; Starting a new search |
| 836 (setq comint-matching-input-from-input-string | 836 (setq comint-matching-input-from-input-string |
| 842 (concat "^" (regexp-quote comint-matching-input-from-input-string)) | 842 (concat "^" (regexp-quote comint-matching-input-from-input-string)) |
| 843 arg)) | 843 arg)) |
| 844 | 844 |
| 845 (defun comint-next-matching-input-from-input (arg) | 845 (defun comint-next-matching-input-from-input (arg) |
| 846 "Search forwards through input history for match for current input. | 846 "Search forwards through input history for match for current input. |
| 847 \(Previous history elements are earlier commands.) | 847 \(Following history elements are more recent commands.) |
| 848 With prefix argument N, search for Nth previous match. | 848 With prefix argument N, search for Nth following match. |
| 849 If N is negative, find the next or Nth next match." | 849 If N is negative, search backwards for the -Nth previous match." |
| 850 (interactive "p") | 850 (interactive "p") |
| 851 (comint-previous-matching-input-from-input (- arg))) | 851 (comint-previous-matching-input-from-input (- arg))) |
| 852 | 852 |
| 853 | 853 |
| 854 (defun comint-replace-by-expanded-history (&optional silent) | 854 (defun comint-replace-by-expanded-history (&optional silent) |