Commit 260ca36a authored by Johan Sundström's avatar Johan Sundström
Browse files

Improved code in lyskom-read-text-no-prefix-arg somewhat.

parent 3c60b2fc
2000-04-29 Johan Sundstrm <jhs@lysator.liu.se>
* utilities.el (lyskom-read-text-no-prefix-arg): Minor code
cleanup and more error handling.
* edit-text.el (kom-edit-insert-buglist): New command in the edit
window for inserting a commented Roxen IS style bug/todo-list.
(lyskom-edit-insert-buglist): Implements the lower-level parts of
......@@ -10,7 +13,7 @@
kom-edit-insert-buglist; C-c C-b for now.
(lyskom-menu): Added menu shortcut for kom-edit-insert-buglist.
* utilities.el: (lyskom-read-text-no-prefix-arg): negative prefix
* utilities.el: (lyskom-read-text-no-prefix-arg): Negative prefix
arguments are now interpreted as a reference to the text-no `arg'
messages up in the kom buffer.
......
......@@ -471,9 +471,10 @@ the current kom buffer."
current-prefix-arg
(save-excursion
(backward-text (- 1 current-prefix-arg))
(string-to-int
(buffer-substring (point)
(search-forward " ")))))))
(if (looking-at "\\([0-9]+\\)\\s-")
(string-to-int (match-string 1))
(lyskom-error (lyskom-get-string 'bad-text-no-prefix)
current-prefix-arg))))))
((listp current-prefix-arg)
(lyskom-read-number prompt (lyskom-text-at-point)))
(t (lyskom-error (lyskom-get-string 'bad-text-no-prefix)
......
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