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

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

parent a4cdcb47
......@@ -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.
......
......@@ -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
......
......@@ -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.
......
......@@ -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")
;;; ================================================================
......
......@@ -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)
......
......@@ -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))
......
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