[ESS] ess-remote double echo

[Sam Steingold]

I fixed http://stackoverflow.com/a/22703777/850781:

--8<---------------cut here---------------start------------->8---
(defvar R-remote-host "ds")
(defvar R-remote-screen "R")
(defun R-remote (&optional remote-host screen-name)
  "Connect to the remote-host's screen-name screen running R."
  (interactive (list
                (read-from-minibuffer "R remote host: " R-remote-host)
                (read-from-minibuffer "R remote screen name: " R-remote-screen)))
  (pop-to-buffer (make-term (concat "remote-" screen-name)
                            "ssh" nil "-t" remote-host
                            "screen" "-c" "/dev/null"
                            "-D" "-r" screen-name))
  ;; avoid echo of your commands
  (process-send-string nil "system('stty -echo')\n")
  (ess-remote (process-name (get-buffer-process (current-buffer))) "R")
  ;; this should actually handle the double echo issue, but it does not,
  ;; so we have to use `stty' above
  (setq comint-process-echoes t))
--8<---------------cut here---------------end--------------->8---

no extra echo now.

It would be nice if this were included in ESS.

-- 
Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1265
http://www.childpsy.net/ http://pmw.org.il http://camera.org
http://think-israel.org http://americancensorship.org
My inner voice mostly screams "shut up!"