Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
92701c71
Commit
92701c71
authored
Sep 29, 1991
by
Per Cederqvist
Browse files
Run lyskom-login-hook even if the person don't have a user-area.
parent
35af28db
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
92701c71
No preview for this file type
src/flags.el
View file @
92701c71
...
...
@@ -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
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment