Skip to content
GitLab
Menu
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
f485176f
Commit
f485176f
authored
Jul 26, 1992
by
Linus Tolke
Browse files
New variable.
parent
c85eb6e8
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
f485176f
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.
...
...
src/flags.el
View file @
f485176f
...
...
@@ -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
()
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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