Commit 9cdf2438 authored by Pontus Freyhult's avatar Pontus Freyhult

Fix for bug 1324.

parent e973fccb
2004-10-25 Pontus Freyhult <pont@soua.net>
* review.el (kom-review-noconversion): Use nil for
kom-show-footnotes-immediately during review with noconversion.
Fix bug 1324:
* view-text.el (lyskom-follow-comments): Removed possible
footnote display.
(lyskom-view-text): Show footnotes if desired.
2004-10-23 Pontus Freyhult <pont@soua.net>
Fix bug 284:
......
......@@ -1747,6 +1747,7 @@ This command accepts text number prefix arguments \(see
(if text-no
(let ((lyskom-format-special nil)
(kom-smileys nil)
(kom-show-footnotes-immediately nil)
(kom-autowrap nil))
(unless kom-review-uses-cache
(cache-del-text-stat text-no))
......
......@@ -353,6 +353,20 @@ Note that this function must not be called asynchronously."
(if kom-reading-puts-comments-in-pointers-last
(lyskom-view-text-handle-saved-comments text-stat))
; Show footnotes if we should do that directly
(if kom-show-footnotes-immediately
(lyskom-traverse misc
(text-stat->misc-info-list text-stat)
(if (eq (misc-info->type misc) 'FOOTN-IN)
;; Show the footnote
(progn
(lyskom-view-text (misc-info->footn-in misc)
mark-as-read t conf-stat priority)
; Mark as read (internally) så follow-comments won't add
; it to the read list.
(lyskom-is-read (misc-info->footn-in misc))))))
;; Prefetch commented texts.
(if (or follow-comments
......@@ -456,7 +470,6 @@ If MARK-AS-READ is non-nil the texts will be marked as read.
PRIORITY the priority of the reading.
If REVIEW-TREE is non-nil then build an entry of type 'REVIEW-TREE in the
lyskom-reading-list."
;; . Find footnotes and show them.
;; . Fix the reading-list
;; . Issue cache-filling initiate-calls for everything left comments.
......@@ -465,13 +478,6 @@ lyskom-reading-list."
(mx-attachments-in (lyskom-get-text-attachments text-stat)))
(lyskom-traverse misc (text-stat->misc-info-list text-stat)
(cond
((and (eq (misc-info->type misc) 'FOOTN-IN)
(> (misc-info->footn-in misc) (text-stat->text-no text-stat))
kom-show-footnotes-immediately)
;; Show the footnote
(lyskom-view-text (misc-info->footn-in misc)
mark-as-read t conf-stat priority review-tree)
(lyskom-is-read (misc-info->footn-in misc)))
((eq (misc-info->type misc) 'FOOTN-IN)
(setq flist (cons (misc-info->footn-in misc) flist)))
((eq (misc-info->type misc) 'COMM-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