Commit be6dd481 authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

* 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).
parent 26937b1f
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> 2002-03-11 Joel Rosdahl <joel@lysator.liu.se>
* english-strings.el (lyskom-message): Changed last-log-in to say * english-strings.el (lyskom-message): Changed last-log-in to say
...@@ -473,8 +479,8 @@ ...@@ -473,8 +479,8 @@
2001-10-14 Ulrik Haugen <qha@lysator.liu.se> 2001-10-14 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-buttons.el (kom-previous-link, kom-next-link): look * lyskom-buttons.el (kom-previous-link, kom-next-link): look for
for property lyskom-button in stead of lyskom-button-text. property lyskom-button instead of lyskom-button-text.
(lyskom-generate-button): new arg sublte, callers changed. (lyskom-generate-button): new arg sublte, callers changed.
2001-10-13 Ulrik Haugen <qha@lysator.liu.se> 2001-10-13 Ulrik Haugen <qha@lysator.liu.se>
......
...@@ -943,7 +943,15 @@ The strings buffered are printed before the prompt by lyskom-update-prompt." ...@@ -943,7 +943,15 @@ The strings buffered are printed before the prompt by lyskom-update-prompt."
(goto-char (point-max)) (goto-char (point-max))
(beginning-of-line) (beginning-of-line)
(let ((inhibit-read-only t)) (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)) (goto-char oldpoint))
(let ((window (get-buffer-window (current-buffer)))) (let ((window (get-buffer-window (current-buffer))))
(if (and window (if (and window
......
Supports Markdown
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