From eba434b762201508e8a391f1f11af3caeeda3fdb Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Thu, 3 May 2012 17:16:25 +0900
Subject: [PATCH] add dir-show, not usefull

---
 emacs.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/emacs.el b/emacs.el
index bd67a5b..ad4e6eb 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1549,6 +1549,16 @@ when SEC is nil, stop auto save if enabled."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; misc funcs
 
+(defun dir-show (&optional dir)
+  (interactive)
+  (let ((bf (get-buffer-create "*dir show*"))
+        (list-directory-brief-switches "-C"))
+    (with-current-buffer bf
+      (list-directory (or nil
+                           default-directory)
+                      nil))
+    ))
+
 (defalias 'qcalc 'quick-calc)
 
 (defvar git-command-history nil
@@ -1570,7 +1580,7 @@ when SEC is nil, stop auto save if enabled."
                                           (point-max)))
       "")))
 (defun my-git-shell-command (cmd)
-  ""
+  "Shell like git command interface."
   (interactive (list (read-shell-command (format "[%s]%s $ git : "
                                                  (abbreviate-file-name default-directory)
                                                  (my-git-ps1 "[GIT:%s]"))