Commit e480e414 authored by Pontus Freyhult's avatar Pontus Freyhult
Browse files

Cleanup (progn removal), inhibit immediate display of footnotes (in

kom-view-commented-text).
parent 0f660621
2004-11-03 Pontus Freyhult <pont@soua.net>
* commands1.el (kom-view-commented-text): Cleanup (progn removal),
inhibit immediate display of footnotes.
2004-10-31 Pontus Freyhult <pont@soua.net>
* mship-edit.el (lp--selected-or-current-arg): New function.
......
......@@ -360,14 +360,14 @@ This command accepts text number prefix arguments (see
See `kom-review-uses-cache'."
(interactive (list (lyskom-read-text-no-prefix-arg 'review-commented-q)))
(if text-no
(progn
(lyskom-tell-internat 'kom-tell-read)
(unless kom-review-uses-cache
(cache-del-text-stat text-no))
(lyskom-view-commented-text
(blocking-do 'get-text-stat text-no)))
(lyskom-insert-string 'confusion-what-to-view)))
(if (not text-no)
(lyskom-insert-string 'confusion-what-to-view)
(lyskom-tell-internat 'kom-tell-read)
(unless kom-review-uses-cache
(cache-del-text-stat text-no))
(let ((kom-show-footnotes-immediately nil))
(lyskom-view-commented-text
(blocking-do 'get-text-stat text-no)))))
(def-kom-command kom-unread-commented-text (text-no)
"MArkes the texts that the selected text is a comment to as unread.
......
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