From 9e33558180a05758ddc607eb7a5778179ef28461 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Wed, 10 Oct 2018 18:23:59 +0900
Subject: [PATCH] Move function

---
 emacs.el | 43 +++++++++++++++++++++----------------------
 1 file changed, 21 insertions(+), 22 deletions(-)

diff --git a/emacs.el b/emacs.el
index 55233df..13222bb 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-10 16:10:35 JST 10sr>
+;; Time-stamp: <2018-10-10 18:23:47 JST 10sr>
 
 ;;; Code:
 
@@ -1544,6 +1544,26 @@ ARG is num to show, or defaults to 7."
 ;; (define-key ctl-x-map "f" 'find-dired)
 
 
+;; It works!
+;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el")))
+
+(defun my-dired-git-ls-files (args)
+  "Dired from git ls-files."
+  (interactive "sgit ls-files args: ")
+  (pop-to-buffer-same-window
+   (dired-noselect `(,default-directory
+                      ,@(split-string (shell-command-to-string (concat "git ls-files -z " args))
+                                      "\0" t))
+                   ""))
+  )
+
+(define-key ctl-x-map (kbd "f") 'my-dired-git-ls-files)
+(with-eval-after-load 'dired
+  (defvar dired-mode-map (make-sparse-keymap))
+  (define-key dired-mode-map "f" 'my-dired-git-ls-files))
+
+;; (define-minor-mode my-dired-glob-filter)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; misc funcs
 
@@ -2217,27 +2237,6 @@ use for the buffer. It defaults to \"*recetf-show*\"."
 
 (define-key ctl-x-map (kbd "C-r") 'recently-show)
 
-;;;;;;;;;;;;;;;;;;;;;;
-
-;; It works!
-;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el")))
-
-(defun my-dired-git-ls-files (args)
-  "Dired from git ls-files."
-  (interactive "sgit ls-files args: ")
-  (pop-to-buffer-same-window
-   (dired-noselect `(,default-directory
-                      ,@(split-string (shell-command-to-string (concat "git ls-files -z " args))
-                                      "\0" t))
-                   ""))
-  )
-
-(define-key ctl-x-map (kbd "f") 'my-dired-git-ls-files)
-(with-eval-after-load 'dired
-  (defvar dired-mode-map (make-sparse-keymap))
-  (define-key dired-mode-map "f" 'my-dired-git-ls-files))
-
-;; (define-minor-mode my-dired-glob-filter)
 
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)