Commit 7218c565 authored by David Byers's avatar David Byers
Browse files

Fixed bugs 1080 and 1081.

Detailed changes:
> 2003-08-14  David Byers  <byers@lysator.liu.se>
>
> 	Fix bug 1080:
> 	* commands2.el (kom-status-server): Use point-max, not point, to
> 	figure out where insertion starts and ends (lyskom-insert always
> 	inserts at point-max but does not always move point).
>
> 	Fix bug 1081:
> 	* lyskom-rest.el (lyskom-format-aux): Set pad-length to nil when
> 	no pad-length is specified.
>
parent 4705730b
2003-08-14 David Byers <byers@lysator.liu.se>
Fix bug 1080:
* commands2.el (kom-status-server): Use point-max, not point, to
figure out where insertion starts and ends (lyskom-insert always
inserts at point-max but does not always move point).
Fix bug 1081:
* lyskom-rest.el (lyskom-format-aux): Set pad-length to nil when
no pad-length is specified.
2003-08-13 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (kom-default-language): Updated the variable
......
......@@ -3118,13 +3118,13 @@ properly in the client."
"s"))))
(lyskom-insert "\n")
(lyskom-traverse item (server-stats->values stats)
(let ((start (point))
(let ((start (point-max))
(inhibit-read-only t))
(lyskom-format-insert fmt (car item))
(lyskom-traverse val (cdr item)
(lyskom-format-insert " %=8.2.7#1f" (stats->average val)))
(lyskom-format-insert "\n")
(add-text-properties start (point) `(face ,kom-mark-face)))
(add-text-properties start (point-max) `(face ,kom-mark-face)))
(lyskom-format-insert fmt "")
(lyskom-insert " ")
......
......@@ -1447,7 +1447,7 @@ Deferred insertions are not supported."
(set-format-state->start format-state
(match-end 0))
(when (match-beginning 2)
(if (match-beginning 2)
(save-match-data
(let* ((s (match-string 2 (format-state->format-string format-state))))
(cond ((or (string-match "\\(-?[0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" s)
......@@ -1455,7 +1455,8 @@ Deferred insertions are not supported."
(setq pad-length (string-to-int (match-string 1 s)))
(setq frac-min (string-to-int (match-string 2 s)))
(setq frac-max (string-to-int (or (match-string 3 s) (match-string 2 s)))))
(t (setq pad-length (string-to-int s)))))))
(t (setq pad-length (string-to-int s))))))
(setq pad-length nil))
(setq equals-flag (match-beginning 1)
arg-no (if (match-beginning 5)
......
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