clean up ssh stuff as I never use it

 

File modified: lisp/emacs.d/ivan-comint.el

Change298 at Sat Jun 05 11:36:48 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 04f9d805bc1c -r db93baded8d1 lisp/emacs.d/ivan-comint.el
--- a/lisp/emacs.d/ivan-comint.el	Sat Jun 05 11:26:58 2010 +0200
+++ b/lisp/emacs.d/ivan-comint.el	Sat Jun 05 11:36:48 2010 +0200
@@ -19,17 +19,6 @@
   (require 'dirtrack)
   (require 'shell))
 
-(defvar ivan-comint-ssh-init nil
-  "String to send to remote shell")
-
-(defvar ivan-comint-ssh-dirtrack-list
-  '("^emacs \\(.*\\)>" 1)
-  "List for ssh directory tracking see `dirtrack-list'")
-
-(defvar ivan-comint-ssh-executable
-  "plink"
-  "Name of the ssh executable")
-
 (defun ivan-comint-shell ()
   (interactive)
   (shell)
@@ -39,27 +28,6 @@
     (setq dirtrack-directory-function
           'file-name-as-directory)))
 
-(defun ivan-comint-ssh (host user)
-  (interactive "sHost: \nsUser: ")
-  (let ((buf (get-buffer-create (concat "*ssh-" host "-" user "*"))))
-    (make-comint-in-buffer "ssh" buf
-                           ivan-comint-ssh-executable
-                           nil "-l" user host)
-    (shell buf)
-    (if ivan-comint-ssh-init
-        (process-send-string buf ivan-comint-ssh-init))
-    (local-set-key "\t" 'comint-dynamic-complete)
-    (local-set-key "\C-c\C-c" 'ivan-comint-ssh-interrupt))
-  (setq dirtrack-list ivan-comint-ssh-dirtrack-list)
-  (add-hook 'comint-preoutput-filter-functions 'dirtrack nil t)
-  (setq dirtrack-directory-function 'file-name-as-directory))
-
-(defalias 'ssh 'ivan-comint-ssh)
-
-(defun ivan-comint-ssh-interrupt ()
-  (interactive)
-  (process-send-string nil "\C-c"))
-
 (defun ivan-comint-hook ()
   (ivan-keymap-keep-global comint-mode-map)
   (ivan-keymap-define comint-mode-map
@@ -96,7 +64,6 @@
 
 ;; Copyright (C) 2008 Ivan Kanis
 ;; Author: Ivan Kanis
-;; 
 ;;
 ;; This program is free software ; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

back