Några kosmetiska förändringar av felmeddelanden mm.

src/ChangeLog

@@ -28,6 +28,9 @@ Tue Jan  6 06:12:39 1998  David K
 
 Sun Jan  4 01:42:08 1998  David Kgedal  <davidk@lysator.liu.se>
 
+	* parse.el (lyskom-expect-char): Anvnd char-to-string.
+	(lyskom-parse-misc-info-list): Dito.
+	
 	* services.el (lyskom-blocking-do-multiple): Anvnd
 	lyskom-ok-to-send-new-calls hr ocks.
 

src/TODO

@@ -415,6 +415,13 @@ Att g
     FIX BY: 0.47-0.48
 
 
+** PREFETCH
+
+    Förbättra prefetchen. Till exempel borde ett mötes inlägg
+    prefetchas vid lämpligt tillfälle, t.ex. när man går till
+    det. Idag prefetchas bara kommentarskedjor.
+
+
 ** DIVERSE OSORTERAT
 
     Lista sessioner, ungefär som lista klienter, men som ger mer

src/command.el

@@ -288,7 +288,7 @@ chosen according to this"
       (progn
 	(if (pos-visible-in-window-p (1- (point-max)))
 	    (goto-char (point-max)))
-        (sit-for 0))) 
+	(sit-for 0)))
                                         ;  (lyskom-scroll)
   (run-hooks 'lyskom-before-command-hook)
   (if kom-page-before-command           ;Nice with dumb terminals.

src/lyskom-rest.el

@@ -94,17 +94,17 @@
 (put 'lyskom-protocol-error 'error-conditions
      '(error lyskom-error lyskom-protocol-error))
 (put 'lyskom-protocol-error 'error-message
-     "LysKOM protocol error:")
+     "LysKOM protocol error")
 
 (put 'lyskom-internal-error 'error-conditions
      '(error lyskom-error lyskom-internal-error))
 (put 'lyskom-internal-error 'error-message
-     "Internal LysKOM error.")
+     "Internal LysKOM error")
 
 (put 'lyskom-format-error 'error-conditions
      '(error lyskom-error lyskom-format-error))
 (put 'lyskom-internal-error 'error-message
-     "Internal LysKOM format error.")
+     "Internal LysKOM format error")
 
 
 ;;; ================================================================

src/parse.el

@@ -91,8 +91,9 @@ Return nil, or signal lyskom-protocol-error if the
 first non-white character was not equal to CHAR."
   (if (/= char (lyskom-parse-nonwhite-char))
       (signal 'lyskom-protocol-error
-	      (list "Expecting " char " but got "
-		    (char-after (1- lyskom-parse-pos))))
+	      (list (concat
+		     "Expecting " (char-to-string char) " but got "
+		     (char-to-string (char-after (1- lyskom-parse-pos))))))
     nil))
 
 
@@ -123,9 +124,8 @@ Signal lyskom-protocol-error if the next token is not a number."
     (goto-char (point-max))
     (signal 'lyskom-parse-incomplete nil))
    (t (signal 'lyskom-protocol-error
-              (list "Expected number, got " (lyskom-string-to-parse)))))
-
-)
+              (list (concat "Expected number, got "
+			    (lyskom-string-to-parse)))))))
 
 
 (defun lyskom-parse-string ()
@@ -319,7 +319,8 @@ result is assigned to the element."
 	(lyskom-expect-char ?})))
      (t					;Error.
       (signal 'lyskom-protocol-error (list 'lyskom-parse-misc-info-list
-					   "Expected * or {, got " char))))))
+					   "Expected * or {, got "
+					   (char-to-string char)))))))
 
 
 (defun lyskom-parse-misc-info-list-sub (n)

src/prefetch.el

@@ -143,6 +143,7 @@ This is used to prevent the prefetch code to reenter itself.")
 ;;; +++ THIS DOES NOT WORK CURRENTLY
 (defun lyskom-reset-prefetch ()
   "Reset the prefetch system."
+  ;; (lyskom-wait-queue 'prefetch)
   (lyskom-setup-prefetch))