(comint-add-to-input-history): New function.

(comint-send-input): Use `comint-add-to-input-history'.

1 files changed, 11 insertions, 7 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 0b2de4aca8a..b0ae6d081bb 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1331,6 +1331,16 @@ Argument 0 is the command name."
 ;;
 ;; 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 @@ Similarly for Soar, Scheme, etc."
               (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"))