Mercurial > emacs
changeset 33138:1d835756e8e7
(comint-add-to-input-history): New function.
(comint-send-input): Use `comint-add-to-input-history'.
| author | Eric M. Ludlam <zappo@gnu.org> |
|---|---|
| date | Thu, 02 Nov 2000 02:25:27 +0000 |
| parents | a226a1bbf51a |
| children | 1e844cbdaf3e |
| files | lisp/comint.el |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Thu Nov 02 02:14:07 2000 +0000 +++ b/lisp/comint.el Thu Nov 02 02:25:27 2000 +0000 @@ -1331,6 +1331,16 @@ ;; ;; Input processing stuff ;; +(defun comint-add-to-input-history (cmd) + "Add CMD to the input history. +Ignore duplicates if `comint-input-ignoredups' is non-nil." + (if (and (funcall comint-input-filter cmd) + (or (null comint-input-ignoredups) + (not (ring-p comint-input-ring)) + (ring-empty-p comint-input-ring) + (not (string-equal (ring-ref comint-input-ring 0) + cmd)))) + (ring-insert comint-input-ring cmd))) (defun comint-send-input () "Send input to process. @@ -1406,13 +1416,7 @@ (delete-region pmark (point)) (insert ?\n)) - (if (and (funcall comint-input-filter history) - (or (null comint-input-ignoredups) - (not (ring-p comint-input-ring)) - (ring-empty-p comint-input-ring) - (not (string-equal (ring-ref comint-input-ring 0) - history)))) - (ring-insert comint-input-ring history)) + (comint-add-to-input-history history) (run-hook-with-args 'comint-input-filter-functions (concat input "\n"))