Commit e696d317 authored by David Byers's avatar David Byers
Browse files

Fixade problemet att kom-view inte fungerade innan man hade läst något

parent ad58348f
2002-09-15 David Byers <david.byers@swipnet.se> 2002-09-15 David Byers <david.byers@swipnet.se>
Fix problem when calling kom-view before reading anything:
* utilites.el (lyskom-read-text-no-prefix-arg): Moved cond branch
for prompting when there is no prefix argument to the first
branch so that errors occurring when looking for texts for a
command that always prompts will not be signalled.
kom-write-footnote footnoted the wrong text: kom-write-footnote footnoted the wrong text:
* utilities.el (lyskom-read-text-no-prefix-arg): Use default * utilities.el (lyskom-read-text-no-prefix-arg): Use default
parameter as default in prompt when the command is specified to parameter as default in prompt when the command is specified to
......
...@@ -767,8 +767,6 @@ its first argument and remaining list items appended to the argument list." ...@@ -767,8 +767,6 @@ its first argument and remaining list items appended to the argument list."
(setq text-no (lyskom-read-number prompt default)))))) (setq text-no (lyskom-read-number prompt default))))))
(setq how (cdr how))))) (setq how (cdr how)))))
(cond (cond
((stringp text-no) ;; a strategy failure error message
(lyskom-error text-no))
((and (null current-prefix-arg) ((and (null current-prefix-arg)
(or always-prompt (or always-prompt
(lyskom-read-text-no-prompt-p lyskom-current-command))) (lyskom-read-text-no-prompt-p lyskom-current-command)))
...@@ -777,6 +775,8 @@ its first argument and remaining list items appended to the argument list." ...@@ -777,6 +775,8 @@ its first argument and remaining list items appended to the argument list."
((lyskom-plusp text-no) text-no) ((lyskom-plusp text-no) text-no)
(t (lyskom-default-value (t (lyskom-default-value
'lyskom-current-text))))) 'lyskom-current-text)))))
((stringp text-no) ;; a strategy failure error message
(lyskom-error text-no))
((and (lyskom-plusp text-no)) ;; a proper text-no ((and (lyskom-plusp text-no)) ;; a proper text-no
text-no) text-no)
((null current-prefix-arg) ;; a fall-back when no strategy had kicked in ((null current-prefix-arg) ;; a fall-back when no strategy had kicked in
......
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