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."
(setq lyskom-proc)
(lyskom-clear-vars)
(lyskom-insert-string 'session-ended)
(lyskom-scroll))
(lyskom-scroll)
(run-hooks 'kom-quit-hook))
(t (lyskom-end-of-command))))
......
......@@ -165,6 +165,7 @@ otherwise => the new conf is entered after all conferences.")
kom-show-where-and-what
kom-who-buffer-size-when-displaying
kom-write-texts-in-window
kom-quit-hook
lyskom-fetch-map-nos
lyskom-header-separator
lyskom-new-text-hook
......@@ -402,6 +403,9 @@ message \"new text\" is received.")
(defvar lyskom-mode-hook nil
"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
"*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
......
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