Commit 2137dcd6 authored by Per Cederqvist's avatar 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
......@@ -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
......
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