瀏覽代碼

Add after-first-visit-hook

master
10sr 4 年之前
父節點
當前提交
d43f5f9e89
簽署人: 10sr GPG Key ID: 7BEC428194130EB2
共有 1 個文件被更改,包括 16 次插入0 次删除
  1. +16
    -0
      emacs.el

+ 16
- 0
emacs.el 查看文件

@@ -23,6 +23,22 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Some macros for internals

(defvar after-first-visit-hook nil
"Run only once at the first visit of file.")

(defvar after-first-visit-hook--done nil
"Non-nil when `after-first-visit-hook' has already been called.")

(defun after-first-visit-hook-run ()
"Run `after-first-visit-hook' and clear its config."
(when (not after-first-visit-hook--done)
(run-hooks 'after-first-visit-hook))
(setq after-first-visit-hook--done t)
(remove-hook 'find-file-hook
'after-first-visit-hook-run))
(add-hook 'find-file-hook
'after-first-visit-hook-run)

(defmacro eval-after-init (&rest body)
"If `after-init-hook' has been run, run BODY immediately.
Otherwize hook it."


Loading…
取消
儲存