Commit 1405bbec authored by David Byers's avatar David Byers
Browse files

Who knows?

parent 0b09a1bb
Mon Aug 11 11:03:21 1997 David Byers <davby@ida.liu.se>
* parse.el (lyskom-parse-bitstring): Testa characters med eq, inte
=.
Fri Aug 8 13:40:06 1997 David Byers <davby@ida.liu.se>
* lyskom-rest.el (lyskom-fill-message): Workaround fr bug i
......
......@@ -1512,7 +1512,7 @@ in lyskom-messages."
(backward-char 1)
(delete-horizontal-space))
(error nil)))
(fill-region start (match-beginning 0) nil t))))
(fill-region start end justify nosqueeze to-eop))))
(defun lyskom-fill-message (text)
"Try to reformat a message."
......
......@@ -123,7 +123,7 @@ 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 ref-no "Expected number, got " (lyskom-string-to-parse)))))
)
......@@ -178,11 +178,11 @@ Signal lyskom-parse-incomplete if there is no nonwhite char to parse."
(char (lyskom-parse-nonwhite-char))
(continue t))
(while (and continue default)
(cond ((= char ?0) (setq result (cons nil result)
(cond ((eq char ?0) (setq result (cons nil result)
default (cdr default)
char (lyskom-parse-char)))
((= char ?1) (setq result (cons t result)
((eq char ?1) (setq result (cons t result)
default (cdr default)
char (lyskom-parse-char)))
((or (= char ?\ )
......@@ -195,8 +195,8 @@ Signal lyskom-parse-incomplete if there is no nonwhite char to parse."
(list 'lyskom-parse-bitstring char
lyskom-parse-pos
(buffer-string))))))
(if (not (or (= char ?\ )
(= char ?\n)))
(if (not (or (eq char ?\ )
(eq char ?\n)))
;; This occurs when the received string is longer than
;; expected.
(progn
......
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