          ((eq 0 (string-match (expand-file-name "~/.zsh-functions/") name)) nil)
          ((eq 0 (string-match (file-truename "~/.zsh-functions/") name)) nil)
          ((string-match "^/sudo:[^/]*:/" name) nil)
+         ((string-match "^/ssh:[^/]*:/" name) nil)
          ((string-match "^/multi:[^/]*:sudo:[^/]*:/" name) nil)
          (t (normal-backup-enable-predicate name)))))
 


;; flymake (Emacs22から標準添付されている)
(when (require 'flymake nil t)
  (global-set-key "\C-cd" 'flymake-display-err-menu-for-current-line)
  (add-hook 'perl-mode-hook
            '(lambda() (flymake-mode t)))

                                        temp-file
                                        (file-name-directory buffer-file-name))))
                     (list "php" (list "-f" local-file "-l")))))
               (setq flymake-allowed-file-name-masks
                     (append
                      flymake-allowed-file-name-masks
