Lite småändringar

doc/NEWS-0.42

@@ -9,6 +9,7 @@ Version 0.42 av elispklienten finns nu tillg
 Filen heter lyskom-0.42.el.gz, och en kopia av den text du läser just
 nu finns under namnet NEWS-0.42.
 
+
 * Fitjurs och förbättringar
 
 ** Kommandot "Lista (med) regexpar" har återuppstått. Det finns bundet
@@ -26,7 +27,9 @@ nu finns under namnet NEWS-0.42.
    snabbare i vissa fall.
 
 ** Den experimentella variabeln 'kom-delayed-printing' har bytt
-   namn. Den heter numera 'kom-deferred-printing'.
+   namn. Den heter numera 'kom-deferred-printing'. Dessutom har den
+   slutat vara experimentell och är påslagen per default. Sätt den
+   till nil om du vill ha det gamla (långsamma) beteendet tillbaka.
 
 ** Fler kommandon, till exempel vilkalistan, använder fördröjd
    utskrift om man slår på det.
@@ -41,8 +44,30 @@ nu finns under namnet NEWS-0.42.
 
 * Bugfixar
 
-** Inga större buggar har fixats, men vi har säkert infört några nya,
-   skojiaga buggar.
+** Klienten scrollar in ner till slutet på bufferten i tid och otid.
+
+** Variabeln kom-text-properties respekteras bättre (om nu någon
+   skulle vilja sätta den till nil).
+
+** Vi har säkert infört några nya, skojiaga buggar.
+
+* Välkända buggar som inte behöver rapporteras igen (och igen (och igen))
+
+** Man kan inte filtrera anonyma inlägg eller inlägga av personer som
+   inte längre existerar. Den här buggen har låg prioritet.
+
+** Återse senaste och återse första kan ta väldigt lång tid om de
+   måste söka igenom många texter. Den kommer speciellt att ta lång
+   tid om man återser fler inlägg än en person har skrivit till ett
+   möte med många inlägg. Detta är egentligen inte en bug, men det är
+   lika bra att nämna det så ingen rapporterar det i onödan.
+
+** Om man går ur ett möte medan man prioriterar möten kan man inte
+   spara den nya prioriteringen. Denna bug kommer nog att fixas på
+   något vis såsmåningom. 
+
+** Att försöka återse sina inlägg i någon annans brevlåda fungerar
+   inte så bra. Det tar lång tid och resultatet blir noll och intet.
 
 Local variables:
 mode: outline

src/ChangeLog

+Wed May  8 01:10:11 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* deferred-insert.el (lyskom-deferred-insert-conf): Gissa om det
+ 	r en person p ett bttre stt.
+
+	* lyskom-buttons.el (lyskom-default-button): Returnera nil om
+	kom-text-properties r nil.
+
+	* async.el (lyskom-show-logged-in-person): Respektera
+ 	kom-text-properties.
+	(lyskom-show-logged-out-person): Dito.
+
+	* lyskom-rest.el (lyskom-format-text-body): Dito.
+
+	* view-text.el (lyskom-view-text): Anvnd inte kom-first-line-face
+	om kom-text-properties r nil.
+
+	* vars.el.in (kom-deferred-printing): ndra default till t.
+
+	* deferred-insert.el (lyskom-replace-deferred): Var lite mer
+	defensiv i scrollningen. Dvs. scrolla aldrig.
+
 Tue May  7 03:18:48 1996  David Kgedal  <davidk@lysator.liu.se>
 
+	* lyskom-rest.el (lyskom-start-of-command): Hoppa till slutet p
+ 	bufferten om det syns i fnstret.
+
 	* commands1.el (kom-list-re): Stt knapp p raderna.
 	
 	* commands1.el (kom-send-letter): Gr (recenter 1) istllet fr

src/async.el

@@ -207,7 +207,8 @@ this function shall be with current-buffer the BUFFER."
   (cond
    (kom-presence-messages-in-buffer
     (lyskom-format-insert-before-prompt 'has-entered-r conf-stat
-					'(face kom-presence-face)))))
+					(and kom-text-properties
+					     '(face kom-presence-face))))))
 
 
 (defun lyskom-show-logged-out-person (conf-stat session-no)
@@ -219,7 +220,8 @@ this function shall be with current-buffer the BUFFER."
   (cond
    (kom-presence-messages-in-buffer
     (lyskom-format-insert-before-prompt 'has-left-r conf-stat
-					'(face kom-presence-face)))))
+					(and kom-text-properties
+					     '(face kom-presence-face))))))
 
 
 (defun lyskom-show-changed-person (personconfstat conf-num doing)

src/commands2.el

@@ -595,6 +595,7 @@ When a text is received the new text is displayed."
 	  ;; This is a bit trial-and-error stuff at the momemt.
 	  ;; o How to make personal messages appear *fast*
 	  ;; o How to enable C-g with a quick response
+	  (sit-for 0)
 	  (accept-process-output nil 1)
 	  (sit-for 0)
 	  (if lyskom-quit-flag

src/deferred-insert.el

@@ -132,8 +132,23 @@ The insertion will be at (point)."
 	   replacement-data)
     (let ((inhibit-read-only t))
       (delete-char (defer-info->del-chars defer-info)))
-    (set-marker (defer-info->pos defer-info) nil)))
-	
+    (set-marker (defer-info->pos defer-info) nil))
+  (if lyskom-executing-command
+      nil
+    (let ((window (get-buffer-window lyskom-buffer)))
+      (if (pos-visible-in-window-p (point-max) window)
+	  nil
+	;; This means that this insertion moved point out of the
+	;; window. The scrolling becomes tricky. One big problem is
+	;; that we can't use lyskom-last-viewed, because it has been
+	;; updated to the new prompt. Until that is solved we make
+	;; sure that we never scroll.
+	(move-to-window-line -1)
+	(vertical-motion 1)
+	(if (not (pos-visible-in-window-p))
+	    (forward-char -1))
+	))))
+
 
 (defun lyskom-deferred-insert-conf (conf-stat defer-info)
   "Insert the name of a conference at a previously reserved place."
@@ -142,7 +157,9 @@ The insertion will be at (point)."
    (if (null conf-stat)
        (lyskom-format 
 	(or (defer-info->data defer-info)
-	    (if (conf-type->letterbox (conf-stat->conf-type conf-stat))
+	    (if (= (aref (defer-info->format defer-info)
+			 (1- (length (defer-info->format defer-info))))
+		   ?P)
 		(if (= (defer-info->call-par defer-info) 0)
 		    'person-is-anonymous
 		  'person-does-not-exist)

src/lyskom-buttons.el

@@ -331,38 +331,39 @@ FACE is the default text face for the button."
   "Generate a button of type TYPE from data in ARG. ARG can be almost any
 type of data and is converted to the proper argument type for buttons of
 type TYPE before being send to lyskom-generate-button."
-  (let (xarg text)
-    (cond ((eq type 'conf)
-           (cond ((lyskom-conf-stat-p arg)
-                  (if (conf-type->letterbox (conf-stat->conf-type arg))
-                      (setq type 'pers))
-                  (setq xarg (conf-stat->conf-no arg)
-                        text (conf-stat->name arg)))
-                 ((numberp arg) (setq text "" xarg arg))
-                 (t (setq text "" xarg 0))))
-          ((eq type 'pers)
-           (cond ((lyskom-conf-stat-p arg)
-                  (setq xarg (conf-stat->conf-no arg)
-                        text (conf-stat->name arg)))
-                  ((lyskom-pers-stat-p arg)
-                   (setq xarg (pers-stat->pers-no arg)
-                         text ""))
-                  ((numberp arg) (setq text "" xarg arg))
-                  (t (setq text "" xarg 0))))
-          ((eq type 'text)
-           (cond ((stringp arg) (setq xarg (string-to-number arg)
-                                      text arg))
-                 ((numberp arg) (setq xarg arg
-                                     text (number-to-string arg)))
-                 ((lyskom-text-stat-p arg)
-                  (setq xarg (text-stat->text-no arg)
-                        text (number-to-string (text-stat->text-no arg))))
-                 (t (setq xarg 0 text ""))))
-          ((eq type 'url)
-           (cond ((stringp arg) (setq xarg nil text arg))
-                 (t (setq xarg nil text ""))))
-          (t (setq xarg arg text "")))
-    (lyskom-generate-button type xarg text nil)))
+  (and kom-text-properties
+       (let (xarg text)
+	 (cond ((eq type 'conf)
+		(cond ((lyskom-conf-stat-p arg)
+		       (if (conf-type->letterbox (conf-stat->conf-type arg))
+			   (setq type 'pers))
+		       (setq xarg (conf-stat->conf-no arg)
+			     text (conf-stat->name arg)))
+		      ((numberp arg) (setq text "" xarg arg))
+		      (t (setq text "" xarg 0))))
+	       ((eq type 'pers)
+		(cond ((lyskom-conf-stat-p arg)
+		       (setq xarg (conf-stat->conf-no arg)
+			     text (conf-stat->name arg)))
+		      ((lyskom-pers-stat-p arg)
+		       (setq xarg (pers-stat->pers-no arg)
+			     text ""))
+		      ((numberp arg) (setq text "" xarg arg))
+		      (t (setq text "" xarg 0))))
+	       ((eq type 'text)
+		(cond ((stringp arg) (setq xarg (string-to-number arg)
+					   text arg))
+		      ((numberp arg) (setq xarg arg
+					   text (number-to-string arg)))
+		      ((lyskom-text-stat-p arg)
+		       (setq xarg (text-stat->text-no arg)
+			     text (number-to-string (text-stat->text-no arg))))
+		      (t (setq xarg 0 text ""))))
+	       ((eq type 'url)
+		(cond ((stringp arg) (setq xarg nil text arg))
+		      (t (setq xarg nil text ""))))
+	       (t (setq xarg arg text "")))
+	 (lyskom-generate-button type xarg text nil))))
                   
 
            

src/vars.el.in

@@ -149,8 +149,7 @@ position (generally the most recent prompt) will always be visible.
 This variable is stored in the LysKOM server.")
 
 ;; Should this be set to nil if baud-rate is low?
-;; This is set to nil until we are sure that it works OK.
-(defvar kom-deferred-printing nil
+(defvar kom-deferred-printing t
   "*Non-nil means delay printing of some information not in the cache.
 You might want to turn this off to have the old, linear behaviour.
 

src/view-text.el

@@ -107,9 +107,11 @@ Note that this function must not be called asynchronously."
 		   
 		   (setq end (point-max))
 
-		   (if (and (null filter)
+		   (if (and kom-text-properties
+			    (null filter)
 			    (not (lyskom-face-default-p 'kom-first-line-face)))
-		       (add-text-properties start end '(face kom-first-line-face)))
+		       (add-text-properties
+			start end '(face kom-first-line-face)))
 
 		   ;; All recipients and other header lines.