Converting vectors to lists.

68009290 · Linus Tolke Y · 49396a29 · 68009290
Commit 68009290 authored Mar 09, 1995 by Linus Tolke Y
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 6 deletions

src/review.el src/review.el +8 -6

No files found.
--- a/src/review.el
+++ b/src/review.el
@@ -139,14 +139,16 @@ The defaults for this command is the conference that you are in."

 	(let* ((found-by (or (zerop by)
 			     (lyskom-remove-zeroes
-			      (map->text-nos
-			       (blocking-do 'get-created-texts by
-					    0 lyskom-max-int)))))
+			      (append
+			       (map->text-nos
+				(blocking-do 'get-created-texts by
+					     0 lyskom-max-int)) nil))))
 	       (found-to (or (zerop to)
 			     (lyskom-remove-zeroes
-			      (map->text-nos
-			       (blocking-do 'get-map to
-					    0 lyskom-max-int)))))
+			      (append
+			       (map->text-nos
+				(blocking-do 'get-map to
+					     0 lyskom-max-int)) nil))))
 	       (list (cond
 		      ((zerop by) found-to)
 		      ((zerop to) found-by)