* lyskom-rest.el (lyskom-insert-before-prompt): don't let xemacs

add the text-properties of the prompt to all text inserted before
the prompt (fixes bug 421).

src/ChangeLog

+2002-03-12  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* lyskom-rest.el (lyskom-insert-before-prompt): don't let xemacs
+	add the text-properties of the prompt to all text inserted before
+	the prompt (fixes bug 421).
+
 2002-03-11  Joel Rosdahl  <joel@lysator.liu.se>
 
 	* english-strings.el (lyskom-message): Changed last-log-in to say
@@ -473,8 +479,8 @@
 
 2001-10-14  Ulrik Haugen  <qha@lysator.liu.se>
 
-	* lyskom-buttons.el (kom-previous-link, kom-next-link): look
-	for property lyskom-button in stead of lyskom-button-text.
+	* lyskom-buttons.el (kom-previous-link, kom-next-link): look for
+	property lyskom-button instead of lyskom-button-text.
 	(lyskom-generate-button): new arg sublte, callers changed.
 
 2001-10-13  Ulrik Haugen  <qha@lysator.liu.se>

src/lyskom-rest.el

@@ -943,7 +943,15 @@ The strings buffered are printed before the prompt by lyskom-update-prompt."
       (goto-char (point-max))
       (beginning-of-line)
       (let ((inhibit-read-only t))
-	(lyskom-do-insert string))
+        ;; Some (all?) xemacsen adds the text-properties on the prompt
+        ;; to text inserted before it. We don't want this, so insert a
+        ;; blank and remove all text-properties from it, insert the
+        ;; text before the blank and finally remove the blank.
+        (insert " ")
+        (backward-char)
+        (remove-text-properties (point) (+ (point) 1) (text-properties-at (point)))
+	(lyskom-do-insert string)
+        (delete-char 1))
       (goto-char oldpoint))
     (let ((window (get-buffer-window (current-buffer))))
       (if (and window