Commit 8f7b4c88 authored by Linus Tolke's avatar Linus Tolke
Browse files

kom-quit-hook.

parent 84f6f059
No preview for this file type
...@@ -842,7 +842,8 @@ If optional argument is non-nil then dont ask for confirmation." ...@@ -842,7 +842,8 @@ If optional argument is non-nil then dont ask for confirmation."
(setq lyskom-proc) (setq lyskom-proc)
(lyskom-clear-vars) (lyskom-clear-vars)
(lyskom-insert-string 'session-ended) (lyskom-insert-string 'session-ended)
(lyskom-scroll)) (lyskom-scroll)
(run-hooks 'kom-quit-hook))
(t (lyskom-end-of-command)))) (t (lyskom-end-of-command))))
......
...@@ -165,6 +165,7 @@ otherwise => the new conf is entered after all conferences.") ...@@ -165,6 +165,7 @@ otherwise => the new conf is entered after all conferences.")
kom-show-where-and-what kom-show-where-and-what
kom-who-buffer-size-when-displaying kom-who-buffer-size-when-displaying
kom-write-texts-in-window kom-write-texts-in-window
kom-quit-hook
lyskom-fetch-map-nos lyskom-fetch-map-nos
lyskom-header-separator lyskom-header-separator
lyskom-new-text-hook lyskom-new-text-hook
...@@ -402,6 +403,9 @@ message \"new text\" is received.") ...@@ -402,6 +403,9 @@ message \"new text\" is received.")
(defvar lyskom-mode-hook nil (defvar lyskom-mode-hook nil
"Hook to run when lyskom-mode is entered.") "Hook to run when lyskom-mode is entered.")
(defvar kom-quit-hook nil
"Hook to run when the LysKOM session is correctly ended.")
(defvar lyskom-new-text-hook nil (defvar lyskom-new-text-hook nil
"*Hook to run when a new text is created. "*Hook to run when a new text is created.
This hook is run after the prompt is removed if it shall be changed but before This hook is run after the prompt is removed if it shall be changed but before
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment