Fix

emacs.el

@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-10 12:26:10 JST 10sr>
+;; Time-stamp: <2018-10-10 12:56:00 JST 10sr>
 
 ;;; Code:
 
@@ -772,20 +772,9 @@ found, otherwise returns nil."
 
 (define-key ctl-x-map "m" 'list-bookmarks)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; buffer killing
-
-;; (defun my-delete-window-killing-buffer () nil)
+;; vc
 
-(defun my-query-kill-current-buffer ()
-  "Interactively kill current buffer."
-  (interactive)
-  (if (y-or-n-p (concat "kill current buffer? :"))
-      (kill-buffer (current-buffer))))
-;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
-(substitute-key-definition 'kill-buffer
-                           'my-query-kill-current-buffer
-                           global-map)
+(set-variable 'vc-handled-backends '())
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; share clipboard with x
@@ -1223,7 +1212,7 @@ found, otherwise returns nil."
             (define-key go-mode-map (kbd "M-.") 'godef-jump)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; buffer switching
+;; buffers
 
 (defvar bs-configurations)
 (when (autoload-eval-lazily 'bs '(bs-show)
@@ -1266,9 +1255,19 @@ found, otherwise returns nil."
     (call-interactively 'iswitchb-buffer)))
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; vc
-(set-variable 'vc-handled-backends '())
+;; buffer killing
+
+;; (defun my-delete-window-killing-buffer () nil)
+
+(defun my-query-kill-current-buffer ()
+  "Interactively kill current buffer."
+  (interactive)
+  (if (y-or-n-p (concat "kill current buffer? :"))
+      (kill-buffer (current-buffer))))
+;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
+(substitute-key-definition 'kill-buffer
+                           'my-query-kill-current-buffer
+                           global-map)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; recentf-mode
@@ -1441,10 +1440,13 @@ ARG is num to show, or defaults to 7."
                               arg)))
     (dired-move-to-filename)))
 
-(defun my-dired-tramp-open (host)
-  "Open HOST home directory."
-  (interactive "sHostname: ")
-  (find-file (format "/scp:%s:" host)))
+(defun my-tramp-remote-find-file (f)
+  "Open F."
+  (interactive (list (read-file-name "My Find File Tramp: "
+                                     "/scp:"
+                                     nil ;; "/scp:"
+                                     (confirm-nonexistent-file-or-buffer))))
+  (find-file f))
 
 ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html