Commit 212205f0 authored by David Byers's avatar David Byers
Browse files

Fix bug 921.

Detailed changes:
> 	Fix bug 921:
> 	* commands1.el (kom-jump): Use lyskom-read-text-no-prefix-arg.
>
parent 523cd195
2003-01-01 David Byers <david.byers@swipnet.se>
Fix bug 921:
* commands1.el (kom-jump): Use lyskom-read-text-no-prefix-arg.
Fix bug 291:
* vars.el.in (lyskom-language): Added to minibuffer variables or
lyskom-get-string will fail in predicate functions used in
......
......@@ -3226,23 +3226,11 @@ WHO-INFOS that are potential sessions."
"Jumps all comments to the current text. Descends recursively in comment tree.
The three is truncated if we encounter an older text.
If optional arg TEXT-NO is present then jump all comments to that text instead."
(interactive (list
(cond
((null current-prefix-arg)
lyskom-current-text)
((integerp current-prefix-arg)
current-prefix-arg)
((and (listp current-prefix-arg)
(integerp (car current-prefix-arg))
(null (cdr current-prefix-arg)))
(car current-prefix-arg))
(t
(signal 'lyskom-internal-error '(kom-jump))))))
(interactive (list (lyskom-read-text-no-prefix-arg 'jump-from-text)))
(cond ((and (null current-prefix-arg)
(eq 'REVIEW-TREE (read-info->type
(read-list->first
lyskom-reading-list))))
(eq 'REVIEW-TREE (read-info->type (read-list->first lyskom-reading-list))))
(lyskom-start-of-command 'kom-jump)
(lyskom-format-insert 'jumping-from-text-review)
(unwind-protect
(progn
(set-read-list-del-first lyskom-reading-list)
......@@ -3250,6 +3238,7 @@ If optional arg TEXT-NO is present then jump all comments to that text instead."
(lyskom-end-of-command)))
(text-no
(lyskom-start-of-command 'kom-jump)
(lyskom-format-insert 'jumping-from-text text-no)
(initiate-get-text-stat 'main 'lyskom-jump text-no t)
(lyskom-run 'main 'lyskom-end-of-command))
(t (lyskom-start-of-command 'kom-jump)
......
......@@ -1857,8 +1857,12 @@ environment to one that uses \"%#2s\" to encode text.
(number-out-of-range . "Invalid number")
(or-date . "or date")
(set-unread-n . "Only read the most recent %#1d?[text%]%[%#1d texts%].\n")
(set-unread-n . "Only read the most recent %#1?d%[text%]%[%#1d texts%].\n")
(set-unread-date . "Only read texts sinse %#2s %#3d, %#1d.\n")
(jump-from-text . "Skip comments to which text? ")
(jumping-from-text . "Skipping comments to text %#1n.\n")
(jumping-from-text-review . "Skipping reviewed comments.\n")
))
......
......@@ -1875,8 +1875,12 @@ teckenkodning.
(number-out-of-range . "Otilltet tal")
(or-date . "eller datum")
(set-unread-n . "Endast lsa %#1d?[det senaste inlgget%]%[de senase %#1d inlggen%].\n")
(set-unread-n . "Endast lsa %#1?d%[det senaste inlgget%]%[de senase %#1d inlggen%].\n")
(set-unread-date . "Endast lsa inlgg sedan %#3d %#2s %#1d.\n")
(jump-from-text . "Hoppa ver kommentarer till vilken text? ")
(jumping-from-text . "Hoppar ver kommentarer till inlgg %#1n.\n")
(jumping-from-text-review . "Hoppar ver tersedda kommentarer.\n")
))
(lyskom-language-var local lyskom-month-names sv
......
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