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