Function: semantic--tag-run-hooks

semantic--tag-run-hooks is a byte-compiled function defined in tag.el.gz.

Signature

(semantic--tag-run-hooks TAG HOOK &rest ARGS)

Documentation

Run for TAG all expressions saved on the property HOOK.

Each hook expression must take at least one argument, the TAG. For any given situation, additional ARGS may be passed.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag.el.gz
(defun semantic--tag-run-hooks (tag hook &rest args)
  "Run for TAG all expressions saved on the property HOOK.
Each hook expression must take at least one argument, the TAG.
For any given situation, additional ARGS may be passed."
  (let ((semantic--tag-hook-value (semantic--tag-get-property tag hook))
	(arglist (cons tag args)))
    (condition-case err
	;; If a hook bombs, ignore it!  Usually this is tied into
	;; some sort of critical system.
	(apply #'run-hook-with-args 'semantic--tag-hook-value arglist)
      (error (message "Error: %S" err)))))