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

* deferred-insert.el (lyskom-replace-deferred): Försök inte

använda buffertens fönster om den inte syns i något fönster.

* commands1.el (lyskom-insert-deferred-session-info): Hantera att
session-info blir nil. Inte så sannolikt, men det verkar ha hänt
Bellman.
parent ad6fd53e
Thu Aug 29 22:31:04 1996 David Kgedal <kg@infovav.se>
* deferred-insert.el (lyskom-replace-deferred): Frsk inte
anvnda buffertens fnster om den inte syns i ngot fnster.
* commands1.el (lyskom-insert-deferred-session-info): Hantera att
session-info blir nil. Inte s sannolikt, men det verkar ha hnt
Bellman.
Wed Aug 28 11:00:40 1996 David Kgedal <kg@infovav.se>
* commands2.el (lyskom-memb-received-1,lyskom-memb-received):
......
......@@ -25,7 +25,7 @@
# $Id$
#
CLIENTVERSION = 0.43.2
CLIENTVERSION = 0.44-beta
SHELL = /bin/sh
......
......@@ -1672,11 +1672,13 @@ Uses Protocol A version 9 calls"
(lyskom-insert (lyskom-format 'total-users total-users))))
(defun lyskom-insert-deferred-session-info (session-info defer-info)
(lyskom-replace-deferred defer-info
(lyskom-combine-username
(static-session-info->username session-info)
(static-session-info->ident-user session-info)
(static-session-info->hostname session-info))))
(if session-info
(lyskom-replace-deferred defer-info
(lyskom-combine-username
(static-session-info->username session-info)
(static-session-info->ident-user session-info)
(static-session-info->hostname session-info)))
(lyskom-replace-deferred defer-info "")))
;;; =====================================================================
;;; Lista klienter - List clients
......
......@@ -141,23 +141,24 @@ The insertion will be at (point)."
(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.
;;
;; The solution is to save lyskom-last-viewed in the defer-info
(save-selected-window
(select-window window)
(lyskom-scroll))
;; (move-to-window-line -1)
;; (vertical-motion 1)
;; (if (not (pos-visible-in-window-p))
;; (forward-char -1))
))))
(if window
(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.
;;
;; The solution is to save lyskom-last-viewed in the defer-info
(save-selected-window
(select-window window)
(lyskom-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)
......
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