Commit b315838b authored by David Byers's avatar David Byers
Browse files

Fixed residual bug in previous checkin

parent 85583bff
......@@ -234,16 +234,17 @@ Note that this function must not be called asynchronously."
(when (or (and (lyskom-viewing-noconversion) (not (eq tpw 'footer)))
(eq tpw 'header)
(and (eq tpw 'comment) (not kom-reading-puts-comments-in-pointers-last)))
(lyskom-insert
(or (lyskom-aux-item-call aux 'text-print aux text-stat)
(lyskom-format 'text-header-aux-item
(lyskom-get-string
(or (car (lyskom-aux-item-definition-field aux 'text-name))
'unknown-aux-item))
(aux-item->tag aux)
(aux-item->data aux)
(lyskom-aux-item-terminating-button aux text-stat))))
(lyskom-insert "\n"))))
(if (lyskom-aux-item-has-call aux 'text-print)
(let ((text (lyskom-aux-item-call aux 'text-print aux text-stat)))
(when text (lyskom-insert text) (lyskom-insert "\n")))
(lyskom-format-insert 'text-header-aux-item
(lyskom-get-string
(or (car (lyskom-aux-item-definition-field aux 'text-name))
'unknown-aux-item))
(aux-item->tag aux)
(aux-item->data aux)
(lyskom-aux-item-terminating-button aux text-stat))
(lyskom-insert "\n")))))
;; If the text is marked, insert line saying so.
......
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