Преглед на файлове

Add after-first-visit-hook

master
10sr преди 4 години
родител
ревизия
d43f5f9e89
Подписан от: 10sr GPG ключ 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."


Зареждане…
Отказ
Запис