Commit b86bf578 authored by David Kågedal's avatar David Kågedal
Browse files

Fixade en liten bug i defer-koden

parent 59eca83c
Sat May 4 00:07:06 1996 David Kgedal <davidk@lysator.liu.se> Sat May 4 00:07:06 1996 David Kgedal <davidk@lysator.liu.se>
* view-text.el (lyskom-insert-header-comm): Ta insert-funktionen
som parameter.
* Jag plockade koden fr "Lista (med) regexpar" frn 0.38.2. * Jag plockade koden fr "Lista (med) regexpar" frn 0.38.2.
* parse.el (lyskom-parse-conf-z-info-list): Ny funktion. * parse.el (lyskom-parse-conf-z-info-list): Ny funktion.
......
...@@ -144,7 +144,7 @@ This variable is stored in the LysKOM server.") ...@@ -144,7 +144,7 @@ This variable is stored in the LysKOM server.")
(defvar kom-continuous-scrolling t (defvar kom-continuous-scrolling t
"*Non-nil means scroll LysKOM window as text is inserted. The last viewed "*Non-nil means scroll LysKOM window as text is inserted. The last viewed
position (generally the most recent prompt) will alsways be visisble. position (generally the most recent prompt) will always be visible.
This variable is stored in the LysKOM server.") This variable is stored in the LysKOM server.")
......
...@@ -445,7 +445,8 @@ Args: TEXT-STAT of the text being read." ...@@ -445,7 +445,8 @@ Args: TEXT-STAT of the text being read."
(blocking-do 'get-text-stat text)))) (blocking-do 'get-text-stat text))))
(if text-stat (if text-stat
(progn (progn
(lyskom-insert-header-comm text-stat misc)) (lyskom-insert-header-comm text-stat misc
'lyskom-format-insert))
(let ((defer-info (lyskom-create-defer-info (let ((defer-info (lyskom-create-defer-info
'initiate-get-text-stat 'initiate-get-text-stat
text text
...@@ -461,14 +462,15 @@ Args: TEXT-STAT of the text being read." ...@@ -461,14 +462,15 @@ Args: TEXT-STAT of the text being read."
(defun lyskom-insert-deferred-header-comm (text-stat defer-info) (defun lyskom-insert-deferred-header-comm (text-stat defer-info)
(save-excursion (save-excursion
(goto-char (defer-info->pos defer-info)) (goto-char (defer-info->pos defer-info))
(lyskom-insert-header-comm text-stat (defer-info->data defer-info)) (lyskom-insert-header-comm text-stat (defer-info->data defer-info)
'lyskom-format-insert-at-point)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(delete-char (defer-info->del-chars defer-info))) (delete-char (defer-info->del-chars defer-info)))
(set-marker (defer-info->pos defer-info) nil))) (set-marker (defer-info->pos defer-info) nil)))
(defun lyskom-insert-header-comm (text-stat misc) (defun lyskom-insert-header-comm (text-stat misc insertfun)
"Get author of TEXT-NO and print a header line." "Get author of TEXT-NO and print a header line."
;;+++ error kommer att se annorlunda ut. ;;+++ error kommer att se annorlunda ut.
(let ((author (if text-stat (let ((author (if text-stat
...@@ -477,29 +479,23 @@ Args: TEXT-STAT of the text being read." ...@@ -477,29 +479,23 @@ Args: TEXT-STAT of the text being read."
(type (misc-info->type misc))) (type (misc-info->type misc)))
(cond (cond
((eq type 'COMM-TO) ((eq type 'COMM-TO)
(lyskom-format-insert-at-point 'comment-to-text (funcall insertfun 'comment-to-text (misc-info->comm-to misc)))
(misc-info->comm-to misc)))
((eq type 'FOOTN-TO) ((eq type 'FOOTN-TO)
(lyskom-format-insert-at-point 'footnote-to-text (funcall insertfun 'footnote-to-text (misc-info->footn-to misc)))
(misc-info->footn-to misc)))
((eq type 'COMM-IN) ((eq type 'COMM-IN)
(lyskom-format-insert-at-point 'comment-in-text (funcall insertfun 'comment-in-text (misc-info->comm-in misc)))
(misc-info->comm-in misc)))
((eq type 'FOOTN-IN) ((eq type 'FOOTN-IN)
(lyskom-format-insert-at-point 'footnote-in-text (funcall insertfun 'footnote-in-text (misc-info->footn-in misc))))
(misc-info->footn-in misc))))
(if author (if author
(lyskom-format-insert-at-point 'written-by author) (funcall insertfun 'written-by author)
(lyskom-insert-at-point "\n")) (lyskom-insert-at-point "\n"))
;; Print information about who added the link ;; Print information about who added the link
(if (misc-info->sent-at misc) (if (misc-info->sent-at misc)
(lyskom-format-insert-at-point 'send-at (funcall insertfun 'send-at (lyskom-return-date-and-time
(lyskom-return-date-and-time
(misc-info->sent-at misc)))) (misc-info->sent-at misc))))
(if (misc-info->sender misc) (if (misc-info->sender misc)
(lyskom-format-insert-at-point 'sent-by (funcall insertfun 'sent-by (misc-info->sender misc)))))
(misc-info->sender misc)))))
......
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