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

Lagt till lyskom-login-hook

parent d4452159
No preview for this file type
......@@ -207,6 +207,7 @@ If successful then set the buffer not-modified. Else print a warning."
(setq lyskom-do-when-starting kom-do-when-starting)
(setq lyskom-do-when-done kom-do-when-done)
(run-hooks 'lyskom-login-hook)
;; Remove not found user-areas
(let ((pos lyskom-other-clients-user-areas))
(if pos
......
......@@ -145,6 +145,7 @@ otherwise => the new conf is entered after all conferences.")
lyskom-who-info-has-changed-hook
lyskom-prompt-text
lyskom-prompt-executing-default-command-text
lyskom-login-hook
)
"Tells the client what flags and hooks that are to be saved in the server.
These are the flags that are saved in the elisp-client part of the server.")
......@@ -382,6 +383,10 @@ set the local variable no-message non-nil.")
"*Hook to run every time the who-info-buffer has changed.
The hook is run with current-buffer the lyskom buffer, not the who-info-buffer.")
(defvar lyskom-login-hook nil
"*Hook to run when we have logged in. Other purposes than kom-do-when-starting.
This could be set in the user-area.")
(defvar lyskom-executing-command t
"Non-nil means the client is executing a command.
Most commands can't be interrupted by another command.")
......
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