Commit a7425603 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Bugfixes in lyskom-review-by-to.

parent bad0599e
Sun Jul 5 05:02:37 1992 Linus Tolke Y (linus@lysator)
* review.el (lyskom-review-by-to): Fixed the bug that made the
function sometimes miss articles.
Optimized so that searching from the end, stopped when found the
first article in a conf or that a person wrote.
Tue Jun 30 00:25:13 1992 Linus Tolke Y (linus@robin)
* swedish-strings.el (lyskom-mode-map): kom-review-noconversion
......
......@@ -300,7 +300,9 @@ The INFO is a preformatted type to help telling."
(t ;Read new maps
(lyskom-collect 'main)
(let ((from-end (and count (> count 0))))
(if (eq start-conf 'all)
(if (or (eq start-conf 'all)
(and (numberp start-conf)
(< start-conf (map->first-local conf-map))))
(setq start-conf 'done))
(if (and conf-stat
(not (eq start-conf 'done)))
......@@ -308,8 +310,8 @@ The INFO is a preformatted type to help telling."
start-conf
(+ start-conf (length (map->text-nos conf-map))
lyskom-fetch-map-nos)))
(start (max 0 (1+ (- end lyskom-fetch-map-nos))))
(nom (1+ (- end start))))
(start (max 0 (- end lyskom-fetch-map-nos)))
(nom (- end start)))
(if (or (= start 0)
(>= end (1- (+ (conf-stat->no-of-texts conf-stat)
(conf-stat->first-local-no conf-stat)))))
......@@ -317,7 +319,9 @@ The INFO is a preformatted type to help telling."
(setq start-conf start))
(initiate-get-map 'main nil (conf-stat->conf-no conf-stat)
start nom)))
(if (eq start-pers 'all)
(if (or (eq start-pers 'all)
(and (numberp start-pers)
(< start-pers (map->first-local pers-map))))
(setq start-pers 'done))
(if (and pers-stat
(not (eq start-pers 'done)))
......@@ -325,8 +329,8 @@ The INFO is a preformatted type to help telling."
start-pers
(+ start-pers (length (map->text-nos pers-map))
lyskom-fetch-map-nos)))
(start (max 0 (1+ (- end lyskom-fetch-map-nos))))
(nom (1+ (- end start))))
(start (max 0 (- end lyskom-fetch-map-nos)))
(nom (- end start)))
(if (or (= start 0)
(>= end (1-
(+ (pers-stat->no-of-created-texts pers-stat)
......
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