Commit a7425603 authored by Linus Tolke's avatar Linus Tolke
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) Tue Jun 30 00:25:13 1992 Linus Tolke Y (linus@robin)
* swedish-strings.el (lyskom-mode-map): kom-review-noconversion * swedish-strings.el (lyskom-mode-map): kom-review-noconversion
......
...@@ -300,7 +300,9 @@ The INFO is a preformatted type to help telling." ...@@ -300,7 +300,9 @@ The INFO is a preformatted type to help telling."
(t ;Read new maps (t ;Read new maps
(lyskom-collect 'main) (lyskom-collect 'main)
(let ((from-end (and count (> count 0)))) (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)) (setq start-conf 'done))
(if (and conf-stat (if (and conf-stat
(not (eq start-conf 'done))) (not (eq start-conf 'done)))
...@@ -308,8 +310,8 @@ The INFO is a preformatted type to help telling." ...@@ -308,8 +310,8 @@ The INFO is a preformatted type to help telling."
start-conf start-conf
(+ start-conf (length (map->text-nos conf-map)) (+ start-conf (length (map->text-nos conf-map))
lyskom-fetch-map-nos))) lyskom-fetch-map-nos)))
(start (max 0 (1+ (- end lyskom-fetch-map-nos)))) (start (max 0 (- end lyskom-fetch-map-nos)))
(nom (1+ (- end start)))) (nom (- end start)))
(if (or (= start 0) (if (or (= start 0)
(>= end (1- (+ (conf-stat->no-of-texts conf-stat) (>= end (1- (+ (conf-stat->no-of-texts conf-stat)
(conf-stat->first-local-no conf-stat))))) (conf-stat->first-local-no conf-stat)))))
...@@ -317,7 +319,9 @@ The INFO is a preformatted type to help telling." ...@@ -317,7 +319,9 @@ The INFO is a preformatted type to help telling."
(setq start-conf start)) (setq start-conf start))
(initiate-get-map 'main nil (conf-stat->conf-no conf-stat) (initiate-get-map 'main nil (conf-stat->conf-no conf-stat)
start nom))) 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)) (setq start-pers 'done))
(if (and pers-stat (if (and pers-stat
(not (eq start-pers 'done))) (not (eq start-pers 'done)))
...@@ -325,8 +329,8 @@ The INFO is a preformatted type to help telling." ...@@ -325,8 +329,8 @@ The INFO is a preformatted type to help telling."
start-pers start-pers
(+ start-pers (length (map->text-nos pers-map)) (+ start-pers (length (map->text-nos pers-map))
lyskom-fetch-map-nos))) lyskom-fetch-map-nos)))
(start (max 0 (1+ (- end lyskom-fetch-map-nos)))) (start (max 0 (- end lyskom-fetch-map-nos)))
(nom (1+ (- end start)))) (nom (- end start)))
(if (or (= start 0) (if (or (= start 0)
(>= end (1- (>= end (1-
(+ (pers-stat->no-of-created-texts pers-stat) (+ (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