blob: b12d2c37499e0533dbfe05aebff5db88dd9d8b46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
;;; req-package-hooks.el --- summary:
;;; commentary:
;;; code:
(defun req-package-hooks-mode-loaded-p (mode)
"Return true if MODE is loaded now."
(or (assoc mode minor-mode-list) (equal major-mode mode)))
(defun req-package-hooks-add-execute-impl (m h f)
"Add function F to hook H and execute it if mode M is already activated"
(add-hook h f)
(if (req-package-hooks-mode-loaded-p m)
(funcall f)))
(defun req-package-hooks-add-execute (m f)
"Add function F to mode M and execute it if already activated"
(let ((h (intern (concat (symbol-name m) "-hook"))))
(req-package-hooks-add-execute-impl m h f)))
(defun add-hook-exec (m f &optional ff)
(if ff
(req-package-hooks-add-execute-impl m f ff)
(req-package-hooks-add-execute m f)))
(provide 'req-package-hooks)
;;; req-package-hooks ends here
|
