浏览代码

Use defvar-local

master
10sr 7 年前
父节点
当前提交
f88513ecae
签署人:: 10sr GPG 密钥 ID: 7BEC428194130EB2
共有 1 个文件被更改,包括 7 次插入13 次删除
  1. +7
    -13
      emacs.el

+ 7
- 13
emacs.el 查看文件

@@ -2151,26 +2151,21 @@ use for the buffer. It defaults to \"*recetf-show*\"."
:prefix "git-walktree-" :prefix "git-walktree-"
:group 'tools) :group 'tools)


(defvar git-walktree-current-committish nil
(defvar-local git-walktree-current-committish nil
"Committish name of currently browsing.") "Committish name of currently browsing.")
(make-variable-buffer-local 'git-walktree-current-committish)


(defvar git-walktree-current-path nil
(defvar-local git-walktree-current-path nil
"Path name currently visiting without leading and trailing slash. "Path name currently visiting without leading and trailing slash.
This path is always relative to repository root.") This path is always relative to repository root.")
(make-variable-buffer-local 'git-walktree-current-path)


(defvar git-walktree-buffer-file-name nil
(defvar-local git-walktree-buffer-file-name nil
"Psudo filename of current buffer.") "Psudo filename of current buffer.")
(make-variable-buffer-local 'git-walktree-buffer-file-name)


(defvar git-walktree-object-full-sha1 nil
(defvar-local git-walktree-object-full-sha1 nil
"Object name in full sha1 format of current buffer.") "Object name in full sha1 format of current buffer.")
(make-variable-buffer-local 'git-walktree-object-full-sha1)


(defvar git-walktree-repository-root nil
(defvar-local git-walktree-repository-root nil
"Repository root path of current buffer.") "Repository root path of current buffer.")
(make-variable-buffer-local 'git-walktree-repository-root)
(put 'git-walktree-repository-root (put 'git-walktree-repository-root
'permanent-local 'permanent-local
t) t)
@@ -2833,9 +2828,8 @@ This assumes that file name should be in a format like BASE.EXT.j2 ."
(add-to-list 'mmm-classes (add-to-list 'mmm-classes
'jinja2) 'jinja2)
(mmm-mode-on)))) (mmm-mode-on))))

(add-to-list 'auto-mode-alist
'("\\.j2\\'" . jinja2-mmm-mode))
;; (add-to-list 'auto-mode-alist
;; '("\\.j2\\'" . jinja2-mmm-mode))


;; Local Variables: ;; Local Variables:
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc) ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)


正在加载...
取消
保存