Browse Source

Add face

master
10sr 6 years ago
parent
commit
5d65d6913f
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 14 additions and 3 deletions
  1. +14
    -3
      emacs.el

+ 14
- 3
emacs.el View File

@@ -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)


Loading…
Cancel
Save