Commit f485176f authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

New variable.

parent c85eb6e8
Mon Jul 27 01:14:24 1992 Linus Tolke Y (linus@lysator)
* flags.el (lyskom-options-done): New variable to tell if we have
already read the user-area.
* clienttypes.el (lyskom-stack-isempty): New function.
(lyskom-queue-enter): Replaced docstring.
......
......@@ -152,6 +152,9 @@ If successful then set the buffer not-modified. Else print a warning."
(lyskom-end-of-command))
(defvar lyskom-options-done nil
"When we have read all options this is turned non-nil.")
(defun lyskom-read-options ()
"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
......@@ -169,7 +172,8 @@ or not."
(if (zerop (pers-stat->user-area pers-stat))
(prog1
(setq lyskom-do-when-starting kom-do-when-starting)
(run-hooks 'lyskom-login-hook))
(run-hooks 'lyskom-login-hook)
(setq lyskom-options-done t))
(initiate-get-text 'options 'lyskom-read-options-eval
(pers-stat->user-area pers-stat))))
(lyskom-insert-string 'you-dont-exist)))
......@@ -247,7 +251,8 @@ or not."
(progn
(while (stringp (cdr (car (cdr pos))))
(setq pos (cdr pos)))
(setcdr pos nil)))))))
(setcdr pos nil))))))
(setq lyskom-options-done t))
(defun lyskom-read-options-eval-get-holerith ()
......
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