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." ...@@ -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-starting kom-do-when-starting)
(setq lyskom-do-when-done kom-do-when-done) (setq lyskom-do-when-done kom-do-when-done)
(run-hooks 'lyskom-login-hook)
;; Remove not found user-areas ;; Remove not found user-areas
(let ((pos lyskom-other-clients-user-areas)) (let ((pos lyskom-other-clients-user-areas))
(if pos (if pos
......
...@@ -145,6 +145,7 @@ otherwise => the new conf is entered after all conferences.") ...@@ -145,6 +145,7 @@ otherwise => the new conf is entered after all conferences.")
lyskom-who-info-has-changed-hook lyskom-who-info-has-changed-hook
lyskom-prompt-text lyskom-prompt-text
lyskom-prompt-executing-default-command-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. "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.") 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.") ...@@ -382,6 +383,10 @@ set the local variable no-message non-nil.")
"*Hook to run every time the who-info-buffer has changed. "*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.") 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 (defvar lyskom-executing-command t
"Non-nil means the client is executing a command. "Non-nil means the client is executing a command.
Most commands can't be interrupted by another 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