Re: FW: comint.el fix

[Richard Stallman]

Is this the right fix?


*** comint.el.~1.288.~  Tue Jun  3 07:07:46 2003
--- comint.el   Sat Jun 21 18:11:50 2003
***************
*** 1344,1351 ****
            ;; Put the previous arg, if there was one, onto ARGS.
            (setq str (substring string beg pos)
                  args (if quotes (cons str args)
!                        (nconc (comint-delim-arg str) args))
!                 count (1+ count)))
        (setq quotes (match-beginning 1))
        (setq beg (match-beginning 0))
        (setq pos (match-end 0))))
--- 1344,1351 ----
            ;; Put the previous arg, if there was one, onto ARGS.
            (setq str (substring string beg pos)
                  args (if quotes (cons str args)
!                        (nconc (comint-delim-arg str) args))))
!       (setq count (length args))
        (setq quotes (match-beginning 1))
        (setq beg (match-beginning 0))
        (setq pos (match-end 0))))
***************
*** 1354,1359 ****
--- 1354,1360 ----
              args (if quotes (cons str args)
                     (nconc (comint-delim-arg str) args))
              count (1+ count)))
+     (setq count (length args))
      (let ((n (or nth (1- count)))
          (m (if mth (1- (- count mth)) 0)))
        (mapconcat
***************
*** 2083,2090 ****
    (interactive)
    (comint-skip-input)
    (interrupt-process nil comint-ptyp)
! ;;  (process-send-string nil "\n")
!   )
  
  (defun comint-kill-subjob ()
    "Send kill signal to the current subjob.
--- 2084,2090 ----
    (interactive)
    (comint-skip-input)
    (interrupt-process nil comint-ptyp)
!   (process-send-string nil "\n"))
  
  (defun comint-kill-subjob ()
    "Send kill signal to the current subjob.