Commit 2528183d authored by Linus Tolke's avatar Linus Tolke
Browse files

Fix in kom-edit-insert-text

parent 7b1c4775
No preview for this file type
......@@ -359,7 +359,13 @@ Entry to this mode runs lyskom-edit-mode-hook."
(defun kom-edit-insert-text (no)
"Insert the text number NO with '>' first on each line"
(interactive (format "N%s" (lyskom-get-string 'which-text-include)))
(interactive (list
(cond
((null current-prefix-arg)
(string-to-int
(read-from-minibuffer
(format "%s" (lyskom-get-string 'which-text-include)))))
((prefix-numeric-value current-prefix-arg)))))
(let ((buffer (current-buffer)))
(set-buffer (process-buffer lyskom-proc))
(initiate-get-text 'edit 'lyskom-edit-insert-commented no buffer)
......
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