From be7c07f55e340d0216899b9b9b1f72b79d3262ce Mon Sep 17 00:00:00 2001
From: Linus Tolke Y <linus@lysator.liu.se>
Date: Wed, 18 Dec 1991 03:35:06 +0000
Subject: [PATCH] who-info-buffer bug-fixes
---
src/ChangeLog | 7 +++++++
src/cache.el | 2 ++
src/startup.el | 5 +----
src/vars.el | 2 +-
4 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/src/ChangeLog b/src/ChangeLog
index af9fe67e..169c59b9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+Wed Dec 18 04:33:02 1991 Linus Tolke Y (linus at robert)
+
+ * vars.el (lyskom-who-info-buffer-is-on): Default on.
+
+ * cache.el, startup.el (lyskom-who-info-buffer): Nu skapas
+ bufferten senare och bara ifall det beh|vs.
+
Mon Dec 16 01:03:06 1991 Linus Tolke Y (linus at robin)
* async.el (lyskom-add-new-text): om vi inte f}r h{mta
diff --git a/src/cache.el b/src/cache.el
index 0ac40f97..f1b7ab23 100644
--- a/src/cache.el
+++ b/src/cache.el
@@ -198,6 +198,8 @@ otherwise return nil"
"Sets the cache of who-info items."
(setq lyskom-who-info-cache (list 'WHO-INFO-LIST))
(lyskom-save-excursion
+ (setq lyskom-who-info-buffer
+ (get-buffer-create (concat (buffer-name) "-who")))
(set-buffer lyskom-who-info-buffer)
(erase-buffer))
(mapcar 'cache-add-who-info
diff --git a/src/startup.el b/src/startup.el
index 661bf800..69c10028 100644
--- a/src/startup.el
+++ b/src/startup.el
@@ -104,8 +104,6 @@ Optional arguments: HOST, USERNAME and PASSWORD."
(goto-char (point-max))
(insert "-----> " output " <-----\n"))
(set-buffer (process-buffer proc))))
- (setq lyskom-who-info-buffer
- (get-buffer-create (concat (buffer-name) "-who")))
(cond
((string= output "LysKOM\n")
(lyskom-init-parse)
@@ -508,7 +506,6 @@ Entry to this mode runs lyskom-mode-hook."
(replies-buffer lyskom-unparsed-buffer)
(replies-marker lyskom-unparsed-marker)
(server-info lyskom-server-info)
- (who-buffer lyskom-who-info-buffer)
(default-password lyskom-default-password))
(kill-all-local-variables)
(make-local-variable 'lyskom-default-password)
@@ -529,6 +526,7 @@ Entry to this mode runs lyskom-mode-hook."
(make-local-variable 'lyskom-server-info)
(make-local-variable 'lyskom-who-info-cache)
(make-local-variable 'lyskom-who-info-buffer)
+ (make-local-variable 'lyskom-who-info-buffer-is-on)
(make-local-variable 'lyskom-prioritize-buffer)
(make-local-variable 'lyskom-marked-text-cache)
(make-local-variable 'lyskom-is-parsing)
@@ -573,7 +571,6 @@ Entry to this mode runs lyskom-mode-hook."
(setq lyskom-unparsed-buffer replies-buffer)
(setq lyskom-unparsed-marker replies-marker)
(setq lyskom-server-info server-info)
- (setq lyskom-who-info-buffer who-buffer)
(setq lyskom-do-when-done (cons kom-do-when-done kom-do-when-done))
(setq lyskom-output-queue (lyskom-queue-create))
(lyskom-set-mode-line (lyskom-get-string 'not-present-anywhere))))
diff --git a/src/vars.el b/src/vars.el
index 37205eb6..553e37d3 100644
--- a/src/vars.el
+++ b/src/vars.el
@@ -304,7 +304,7 @@ different packets.")
(defvar lyskom-who-info-buffer nil
"Buffer for the who info presentation.")
-(defvar lyskom-who-info-buffer-is-on nil
+(defvar lyskom-who-info-buffer-is-on t
"Says wether we are collecting who-information or not.")
--
GitLab