Commit 92701c71 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Run lyskom-login-hook even if the person don't have a user-area.

parent 35af28db
No preview for this file type
......@@ -153,7 +153,9 @@ If successful then set the buffer not-modified. Else print a warning."
(defun lyskom-read-options ()
"Reads the user-area and sets the variables according to the choises."
"Reads the user-area and sets the variables according to the choises.
Also run lyskom-login-hook (regardless of whether the person has a userarea
or not."
(if (and lyskom-pers-no
(not (zerop lyskom-pers-no)))
(initiate-get-pers-stat 'options 'lyskom-read-options-2 lyskom-pers-no)))
......@@ -165,7 +167,9 @@ If successful then set the buffer not-modified. Else print a warning."
(progn
(setq lyskom-other-clients-user-areas)
(if (zerop (pers-stat->user-area pers-stat))
(setq lyskom-do-when-starting kom-do-when-starting)
(prog1
(setq lyskom-do-when-starting kom-do-when-starting)
(run-hooks 'lyskom-login-hook))
(initiate-get-text 'options 'lyskom-read-options-eval
(pers-stat->user-area pers-stat))))
(lyskom-insert-string 'you-dont-exist)))
......
Markdown is supported
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