[h-e-w] tramp problems on Windows

[Eric S. Johansson]

this is incredibly frustrating[1].  I've changed nothing (as far as I can tell) 
with Emacs and tramp but now tramp fails.  It fails as if tramp doesn't exist. 
I try to edit '/[harvee.org].emacs' like the example in the instructions say 
should be possible and it creates a new file locally.  I've turned on the 
debugging buffer and a few other things but they never show up in my .Emacs file 
(this is probably a hint) even though I hit the save button.

Here's my .Emacs.  It was working I have no idea why it stopped all of a sudden 
and it won't tell me how it's failing.

---eric

[1] [grumble
the past few days have been "unpleasant".  An upgrade with better speech 
recognition broke all of my accessibility macros and using Emacs without them is 
damn near impossible.  much unpleasantness followed.  The lesson you should take 
away is, take care of your hands and arms.  Once they're gone, there is no 
replacement.  Geeks with hands don't care to fix the big problems for you, and 
you can't fix them for yourself.  I do consider it a blessing that I have fixed 
things to the point where I can at least have Emacs back even if it is in 
crippled form.]

-------------------
;;#(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
;;#(setq interpreter-mode-alist (cons '("python" . python-mode)
;;                                 interpreter-mode-alist))
;;#(autoload 'python-mode "python-mode" "Python editing mode." t)
(require 'tramp)
(setq tramp-default-method "plink")


;; (add-to-list 'load-path (substitute-in-file-name "c:/Program Files/vrmode"))
;; (autoload 'vr-mode "c:/Program Files/vrmode/vr" "" t nil)
;; (setq vr-command "c:/Program Files/vrmode/vr.exe")
;; (setq vr-win-class nil)
;; (setq vr-win-title nil)
;; (setq vr-port 1234)

;; (setq vr-log-do t)
;; (setq vr-log-send t)
;; (setq vr-log-read t)

;;(setq vr-activation-list '("^\*scratch\*$"
;;                         "\.txt$")
;;      (not "^no-voice\.txt$"))
(setq vr-activation-list '((not "^\*info\*$") ".*"))

;;; These are Common-Lisp extensions required by VoiceCode
;;(require 'cl)

;;; This enables pc-selection-mode which makes Emacs behave
;;; a PC w.r.t. to text selection. This is necessary for
;;; VoiceCode to work.
;;; (pc-selection-mode)

;;; This is the `VCode-Mode` file itself
;;;; (load-file (substitute-in-file-name 
"$VCODE_HOME/Environments/Emacs/vcode-mode.el"))

;;; VoiceCode needs Emacs to put python buffers in python-mode.
;;;; (load-file (substitute-in-file-name "d:/esj/My 
Documents/gnuemacs/python-mode.el"))
;; (load-file (substitute-in-file-name 
"$VCODE_HOME/Environments/Emacs/python-mode.el"))
;; (setq auto-mode-alist
;;      (cons '("\\.py$" . python-mode) auto-mode-alist))
;; (setq interpreter-mode-alist
;;      (cons '("python" . python-mode)
;;          interpreter-mode-alist))
;; (autoload 'python-mode "python-mode" "Python editing mode." t)



(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(case-fold-search t)
 '(current-language-environment "Latin-1")
 '(default-input-method "latin-1-prefix")
 '(emacsw32-eol-check-before-save t)
 '(emacsw32-eol-check-new-files t)
 '(emacsw32-eol-file-name-lf-list (quote (".x?html?$" ".css$" ".js$" ".pl$" 
".pm$" ".py$")))
 '(global-font-lock-mode t nil (font-lock))
 '(py-indent-offset 3)
 '(save-place t nil (saveplace))
 '(show-paren-mode t nil (paren))
 '(uniquify-buffer-name-style (quote forward) nil (uniquify)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )


;; (desktop-load-default)
;; (desktop-read)
;; (add-hook 'kill-emacs-hook
;;        '(lambda ()
;;           (desktop-truncate search-ring 3)
;;           (desktop-truncate regexp-search-ring 3)))

;; recentf
(require 'recentf)
(recentf-mode 1)
(setq recentf-max-saved-items 500)
(setq recentf-max-menu-items 60)
(global-set-key [(meta f12)] 'recentf-open-files)
;; Are we running XEmacs or Emacs?
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

;; Enable wheelmouse support by default
(if (not running-xemacs)
    (if (or (> emacs-major-version 20)
            (and (= emacs-major-version 20) (>= emacs-minor-version 7)))
        (require 'mwheel)) ; Emacs
  (mwheel-install) ; XEmacs
)

;;; Disabling commands and key bindings (disaster prevention)

;;; The following disable key sequences that can cause
;;; big or unnoticed mistakes
;;;(put 'zap-to-char 'disabled t)      ; M-z
;;;(put 'rmail-edit-current-message 'disabled 't)
;;;(global-unset-key "\C-x\C-u")       ; C-x C-u (upcase-region) vs. C-x u 
(undo)
;;;(global-unset-key "\C-x\C-l")       ; downcase of region can be disaster
;;;(global-unset-key "\C-xf")          ; can use set-fill-column explicitly

;;; it's safer to not allow local variable lists to take effect automatically
(setq enable-local-variables 'query)


;;; The following is important for the Windows file system,
;;; which uses ~ at the end of a name to control long file names!
;;; I use it also under Unix, so that sharing files on Windows works...
(setq version-control t)

;;; Preserve links of files when editing
;;;
(setq backup-by-copying-when-linked 't)
(setq delete-old-versions 't)

;;; Make files always end in a newline
;;;
(setq require-final-newline 't)

;; ===== Set the highlight current line minor mode =====

;; In every buffer, the line which contains the cursor will be fully
;; highlighted

(global-hl-line-mode 1)

;;; Mode-line customization
;;;
; I don't want constantly check my email, so make it look like there's no mail
;(setq display-time-mail-file ".non-existent-file")
; I like to know what day it is...
(setq display-time-day-and-date t)
; display the time in the mode-line
(display-time)

;; default to better frame titles
(setq frame-title-format
      (concat  "%b - emacs@" system-name))