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
2137dcd6
Commit
2137dcd6
authored
Jan 01, 1999
by
Per Cederqvist
Browse files
(lyskom-read-options-eval): Krascha inte om det finns mer än en del i
user-arean från en annan klient.
parent
4381bf76
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/flags.el
View file @
2137dcd6
...
...
@@ -333,6 +333,8 @@ If successful then set the buffer not-modified. Else print a warning."
((
string=
word
"elisp"
)
(
setq
elisp-no
r
))
(
t
;; Build up lyskom-other-clients-user-areas so that it
;; contains a list of pairs: (name . number). (string, int).
(
setq
lyskom-other-clients-user-areas
(
cons
(
cons
word
r
)
lyskom-other-clients-user-areas
))))
(
++
r
)))
...
...
@@ -374,10 +376,14 @@ If successful then set the buffer not-modified. Else print a warning."
(
t
(
let
((
pos
lyskom-other-clients-user-areas
))
(
while
(
and
pos
(
not
(
=
(
cdr
(
car
pos
))
r
)))
(
not
(
equal
(
cdr
(
car
pos
))
;The position or the string.
r
)))
(
setq
pos
(
cdr
pos
)))
(
if
pos
(
setcdr
(
car
pos
)
working
)))))
(
setcdr
(
car
pos
)
working
)))))
;Insert the string
;where the position
;was stored.
(
++
r
))
(
setq
lyskom-filter-list
(
append
kom-permanent-filter-list
...
...
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