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

92701c71 · Per Cederqvist · 35af28db · 92701c71 · 92701c71
Commit 92701c71 authored Sep 29, 1991 by Per Cederqvist
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 2 deletions

src/ChangeLog src/ChangeLog +3 -0

src/flags.el src/flags.el +6 -2

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
--- a/src/flags.el
+++ b/src/flags.el
@@ -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)))