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

* lyskom-rest.el (lyskom-update-prompt): Ersatte

lyskom-print-prompt, och fick en omskrivning, så att den inte
uppdaterar prompten om det inte behövs.
(lyskom-start-of-command): Justerad därefter.
(lyskom-end-of-command): Dito.

* vars.el.in (lyskom-current-prompt): Ersatte lyskom-no-prompt.

* lyskom-rest.el (lyskom-prefetch-and-print-prompt): Justerad
därefter.

* startup.el (lyskom-clear-vars): Dito.

* lyskom-rest.el (lyskom-update-prompt): Bytte namn från
lyskom-print-prompt.
(lyskom-prefetch-and-print-prompt): Justerad därefter.

* async.el (lyskom-default-new-text-hook): Ta inte bort
prompten. Låt lyskom-update-prompt göra det själv istället.
parent ac99f6d8
Fri Aug 2 00:00:23 1996 David Kgedal <davidk@lysator.liu.se>
* lyskom-rest.el (lyskom-update-prompt): Ersatte
lyskom-print-prompt, och fick en omskrivning, s att den inte
uppdaterar prompten om det inte behvs.
(lyskom-start-of-command): Justerad drefter.
(lyskom-end-of-command): Dito.
* vars.el.in (lyskom-current-prompt): Ersatte lyskom-no-prompt.
* lyskom-rest.el (lyskom-prefetch-and-print-prompt): Justerad
drefter.
* startup.el (lyskom-clear-vars): Dito.
* lyskom-rest.el (lyskom-update-prompt): Bytte namn frn
lyskom-print-prompt.
(lyskom-prefetch-and-print-prompt): Justerad drefter.
* async.el (lyskom-default-new-text-hook): Ta inte bort
prompten. Lt lyskom-update-prompt gra det sjlv istllet.
Thu Aug 1 22:33:32 1996 David Kgedal <davidk@lysator.liu.se>
* async.el (lyskom-default-new-text-hook): Anvnd
inhibit-read-only istllet fr buffer-read-only.
(lyskom-default-new-text-hook): Gr inte (lyskom-run 'async ...)
* lyskom-rest.el (lyskom-insert-before-prompt): Skrev om.
(kom-page-next-command): Hoppa till slutet frst, om det syns.
Wed Jul 31 10:11:01 1996 David Byers <davby@sen2.ida.liu.se>
......
......@@ -405,14 +405,7 @@ converted, before insertion."
"Print a message if the user was waiting. Change the prompt. run hooks."
(if (and (not lyskom-dont-change-prompt) ;We shall change it
(not lyskom-executing-command)) ;We have time to do it.
;; Alter the prompt.
(let ((buffer-read-only nil))
(save-excursion
(goto-char (point-max))
(beginning-of-line)
(delete-region (point) (point-max)))
(lyskom-run 'async 'lyskom-print-prompt)))
(lyskom-update-prompt))
(let ((no-message nil))
(run-hooks 'lyskom-new-text-hook)
......
No preview for this file type
......@@ -598,7 +598,7 @@ to see, set of call."
(make-local-variable 'lyskom-marked-text-cache)
(make-local-variable 'lyskom-membership)
(make-local-variable 'lyskom-membership-is-read)
(make-local-variable 'lyskom-no-prompt)
(make-local-variable 'lyskom-current-prompt)
(make-local-variable 'lyskom-normally-read-texts)
(make-local-variable 'lyskom-number-of-pending-calls)
(make-local-variable 'lyskom-options-done)
......
......@@ -257,8 +257,10 @@ This variable is stored in the LysKOM server.")
This variable is stored in the LysKOM server.")
(defvar lyskom-no-prompt nil
"Tells the session that we have no prompt.
(defvar lyskom-current-prompt nil
"The current prompt or nil.
This is either nil, indicating that there is currently no prompt, or
one a symbol indcating which prompt is shown in the LysKOM buffer.
This variable is not saved in the LysKOM server.")
......
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