Variable lyskom-no-prompt removed. lyskom-start-of-command,

lyskom-end-of-command patched.

src/ChangeLog

+Sun Aug 30 20:00:14 1992  Linus Tolke Y  (linus@rune)
+
+	* vars.el,async.el,macros.el,startup.el (lyskom-no-prompt):
+	  removed variable.
+
+Sun Aug 16 22:29:19 1992  Linus Tolke Y  (linus@robin)
+
+	* lyskom-rest.el (lyskom-start-of-command, lyskom-end-of-command):
+	  The prefetch is now turned on and of while executing a command.
+
+	* vars.el: The version number is not 0.35
+
 Wed Aug 12 06:35:09 1992  Linus Tolke Y  (linus@robin)
 
 	* startup.el (lyskom-fetch-until-we-have-unread): Bugfix, it is

src/async.el

@@ -321,16 +321,15 @@ The text is converted, before insertion."
 
 (defun lyskom-default-new-text-hook (text-stat)
   "Print a message if the user was waiting. Change the prompt. run hooks."
-  (if (and (not lyskom-no-prompt)	           ;There is a prompt
-	   (not lyskom-dont-change-prompt) 	   ;We shall change it
-	   (not lyskom-executing-command)) 	   ;We have time to do it.
+  (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))
 	(lyskom-save-excursion
-	  (goto-char (point-max))
-	  (beginning-of-line)
-	  (delete-region (point) (point-max)))
-	(setq lyskom-no-prompt t)))
+	 (goto-char (point-max))
+	 (beginning-of-line)
+	 (delete-region (point) (point-max)))
+	(lyskom-run 'async 'lyskom-print-prompt)))
 
   (let ((no-message nil))
     (run-hooks 'lyskom-new-text-hook)
@@ -368,11 +367,8 @@ The text is converted, before insertion."
 		     "Unexpected misc-info in new text "
 		     type))))))
 
-  ;; Give a message if the user is waiting.
-  (lyskom-run 'async 'lyskom-default-new-text-hook text-stat)
-
-  (lyskom-run 'async 'lyskom-print-prompt))
-
+  ;; Give a message if the user is waiting. Update the prompt.
+  (lyskom-run 'async 'lyskom-default-new-text-hook text-stat))
 
 
 (defun lyskom-conf-fetched-p (conf-no)

src/macros.el

@@ -85,3 +85,4 @@ Value returned is always nil."
 (defmacro -- (var)
   "Decrement the variable VAR and return the value."
   (list 'setq var (list '1- var)))
+

src/startup.el

@@ -633,7 +633,6 @@ Entry to this mode runs lyskom-mode-hook."
     (make-local-variable 'lyskom-membership)
     (make-local-variable 'lyskom-prefetch-texts)
     (make-local-variable 'lyskom-prefetch-conf-tresh)
-    (make-local-variable 'lyskom-no-prompt)
     (make-local-variable 'lyskom-reading-list)
     (make-local-variable 'lyskom-to-do-list)
     (make-local-variable 'lyskom-fetched-texts)

src/vars.el

@@ -223,7 +223,7 @@ Dont change these. These are defined by the protocol.")
 ;;;                  Internal variables and constants
 
 
-(defconst lyskom-clientversion "0.34.7"
+(defconst lyskom-clientversion "0.35"
   "Version of the LysKOM elisp client.")
 
 (defconst lyskom-max-int 8388607
@@ -396,9 +396,6 @@ article in one of the first lyskom-fetch-membership-length conferences.")
 (defvar lyskom-unread-confs nil
   "List containing all unread confs.")
 
-(defvar lyskom-no-prompt t
-  "Non-nil if no prompt is displayed yet.")
-
 (defvar lyskom-dont-change-prompt nil
   "Non-nil during the entry of a text.")