Commit 880006e1 authored by David Kågedal's avatar David Kågedal
Browse files

Fixade så att den inte kraschar under uppstart om man har trasiga

variabler.
parent 85914a09
No preview for this file type
......@@ -28,17 +28,26 @@ ut en session i ett ikonifierat f</indent>
bara i en g</indent>ö<indent>md buffert.
kom-url-viewer-prefences saknas i lyskom-elisp-variables.
Det verkar inte hj</indent>älpa att göra aBörja för att få se texter man
<indent>missat.
</indent>Funktionen lyskom-format-filter-pattern med underfunktioner
<indent>använder insert i stället för lyskom-insert. Det gör att man inte
kan lista sina filter om man har en skrivskyddad kom-buffer.
</indent>
<bold><x-color><param>white</param><x-bg-color><param>DarkSlateGray</param>Allmänna förbättringar</x-bg-color></x-color></bold>
Lista ärenden formaterar fel.<indent>
</indent><bold><x-color><param>white</param><x-bg-color><param>DarkSlateGray</param>Allmänna förbättringar</x-bg-color></x-color></bold>
<indent>Det verkar behövas dynamisk anpassning av sessionsfältsbredden i
vilkalistan, vid sessionsnummer över 9999 ser det inte så snyggt
ut.
......
......@@ -655,6 +655,8 @@ Group message to %#3M from %#2P (%#4s):
(could-not-create-area . "Couldn't create the article.\n")
(could-not-set-user-area . "Couldn't alter the user-area. The server says error: %#1d\n")
(you-dont-exist . "You don't exist. Go away.\n")
(error-in-options . "There was an error in one of your variables (%#1s)
It is set to nil instead. Send a bug report.\n")
; From elib-string.el:
; No entries.
......
......@@ -303,14 +303,14 @@ If successful then set the buffer not-modified. Else print a warning."
(setq name (concat "UNK-" gname))
(setq lyskom-global-non-boolean-variables
(cons name lyskom-global-non-boolean-variables))))
(set (intern name) (car (read-from-string value))))))
(lyskom-set-var-from-string name value))))
((= r elisp-no)
(let ((txt working)
name value)
(while (> (length txt) 2)
(setq name (lyskom-read-options-eval-get-holerith))
(setq value (lyskom-read-options-eval-get-holerith))
(set (intern name) (car (read-from-string value))))))
(lyskom-set-var-from-string name value))))
(t
(let ((pos lyskom-other-clients-user-areas))
(while (and pos
......@@ -342,3 +342,14 @@ If successful then set the buffer not-modified. Else print a warning."
(prog1
(substring txt start (+ start len))
(setq txt (substring txt (+ start len))))))
(defun lyskom-set-var-from-string (var string)
"This is a wrapper aroud read-from-string.
It returns nil, and writes a message when an error occurs."
(set (intern var)
(car
(condition-case err
(read-from-string string)
(invalid-read-syntax
(lyskom-format-insert (lyskom-get-string 'error-in-options) var)
nil)))))
......@@ -684,6 +684,8 @@ Gruppmeddelande till %#3M fr\345n %#2P (%#4s):
(could-not-create-area . "Kunde ej skapa texten.\n")
(could-not-set-user-area . "Kunde ej st\344lla om user-arean. Servern s\344ger felmeddelande: %#1d\n")
(you-dont-exist . "Du finns inte.\n")
(error-in-options . "Det fanns ett fel i en av dina variabler (%#1s)
Den stts till nil istllet. Skicka en bugrapport.\n")
; From elib-string.el:
; No entries.
......
......@@ -152,8 +152,7 @@ lyskom-reading-list to read the comments to this."
(lyskom-format 'marked-by-several
num-marks))))))
(lyskom-print-text text-stat (blocking-do
'get-text text-no)
(lyskom-print-text text-stat text
mark-as-read text-no))
......
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