Add face

emacs.el

@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-12 13:34:46 JST 10sr>
+;; Time-stamp: <2018-10-12 13:49:59 JST 10sr>
 
 ;;; Code:
 
@@ -2337,8 +2337,7 @@ Result will be inserted into current buffer."
                                     "cat-file"
                                     "-p"
                                     blob))
-      ;; after-find-file?
-      ;; set-major-mode?
+      ;; FIXME: Ask for file name when C-xC-s is given
       (setq buffer-file-name
             (concat (git-revision--git-plumbing "rev-parse"
                                                 "--show-toplevel")
@@ -2503,6 +2502,18 @@ If not given, value of current buffer will be used."
                                                        nil))
       (message "Cannot find parent for current buffer."))))
 
+(defgroup git-revision-faces nil
+  "Faces used by git-revision."
+  :group 'git-revision
+  :group 'faces)
+
+(defface git-revision-tree
+  '((t (:inherit font-lock-function-name-face)))
+  "Face used for tree objects."
+  :group 'git-revision-faces)
+(defvar git-revision-tree-face 'git-revision-tree
+  "Face used for tree objects.")
+
 (defvar git-revision-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "n" 'next-line)