emacs signal.el : フックの進化形が登場！その中身とは？ | MELPA Emacs Lisp Elisp パッケージ インストール 使い方

(require 'signal)
;;; 定義
(defvar my-hook nil
  "Test hook")
(defsignal my-signal
  "Test signal")
;;; 元の関数を呼び出す
(defun test-func ()
  (with-output-to-string
    (princ "Hook")
    (run-hooks 'my-hook)
    (princ "/")
    (princ "Signal")
    (signal-emitb 'my-signal)
    (princ "/")))
(test-func)                             ; => "Hook/Signal/"

;;; 関数を追加する
(setq test-count 0)
(defun print-count ()
  "呼ばれた回数を表示する"
  (princ (cl-incf test-count)))
;; hookとは違い、signalは追加された数だけ同じ関数が実行される
(add-hook 'my-hook 'print-count)
(signal-connect :signal 'my-signal :worker 'print-count)
(add-hook 'my-hook 'print-count)
(signal-connect :signal 'my-signal :worker 'print-count)
(test-func)                             ; => "Hook1/Signal23/"
;;; 関数を削除する
(remove-hook 'my-hook 'print-count)
(signal-disconnect 'my-signal 'print-count)
(test-func)                             ; => "Hook/Signal/"