Commit 13e44c33 authored by David Byers's avatar David Byers
Browse files

> Fix bug 701:

> 	* utilities.el (lyskom-get-ancestors-of-text): Provide completions
> 	when reading text numbers.
>
> 	* lyskom-rest.el (lyskom-read-number): Set require-match when
> 	reading numbers with completion.
>
parent e2197e56
2002-12-16 David Byers <david.byers@swipnet.se>
Fix bug 701:
* utilities.el (lyskom-get-ancestors-of-text): Provide completions
when reading text numbers.
* lyskom-rest.el (lyskom-read-number): Set require-match when
reading numbers with completion.
Fix bug 919:
* faqs.el (lyskom-change-faq-3): Handle creating FAQs.
(lyskom-change-faq-2): Ditto.
......
......@@ -3381,7 +3381,7 @@ to return nil."
(mapcar (lambda (x) (list (number-to-string x) x))
completions)
nil
nil
t
nil
history
(when default (number-to-string default)))
......
......@@ -665,7 +665,11 @@ non-negative integer and 0 means the given text-no."
((eq txts 1)
(car cnos))
(t
(lyskom-read-number (lyskom-get-string 'what-ancestor) (car cnos))))))
(lyskom-read-number (lyskom-get-string 'what-ancestor)
(car cnos)
nil
nil
cnos)))))
(defun lyskom-prompt-for-text-no (arg prompt default &optional constraint)
(lyskom-read-number prompt default))
......
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