Commit 30fcc614 authored by inge's avatar inge
Browse files

Fixed the bug where lyskom-insert was used instead of insert in the

who-buffer.
parent a74ddf39
Wed Apr 15 10:32:41 1992 Inge Wallin (inge@robert)
* cache.el(lyskom-set-who-info-buffer-2): Use insert instead of
lyskom-insert in the who-buffer. Send 'insert to the call to
lyskom-print-who-info.
* commands1.el(lyskom-print-who-info): Take new optional parameter
INSERT-FUNCTION telling which function to use for text insertion
into the buffer. Use lyskom-insert as default.
Tue Mar 24 03:03:41 1992 Lars Willf|r (willfor@lysator) Tue Mar 24 03:03:41 1992 Lars Willf|r (willfor@lysator)
* lyskom-rest.el: Har lagt in s} att den s{tter lyskom-last-viewed * lyskom-rest.el: Har lagt in s} att den s{tter lyskom-last-viewed
......
...@@ -277,7 +277,8 @@ ARG: session-info" ...@@ -277,7 +277,8 @@ ARG: session-info"
(insert " ") (insert " ")
(narrow-to-region (point-min) (1- (point-max)))) (narrow-to-region (point-min) (1- (point-max))))
(setq min (point-max-marker)) (setq min (point-max-marker))
(lyskom-print-who-info pers-conf-stat conf-conf-stat who-info sesno) (lyskom-print-who-info pers-conf-stat conf-conf-stat who-info sesno
'insert)
(setq max (point-max-marker)) (setq max (point-max-marker))
(goto-char (point-max))) (goto-char (point-max)))
(delete-char 1)) (delete-char 1))
......
...@@ -1596,28 +1596,34 @@ args: TIME." ...@@ -1596,28 +1596,34 @@ args: TIME."
(lyskom-run 'who-is-on 'lyskom-run 'main 'lyskom-end-of-command)) (lyskom-run 'who-is-on 'lyskom-run 'main 'lyskom-end-of-command))
(defun lyskom-print-who-info (conf-stat working who-info my-session-no) (defun lyskom-print-who-info (conf-stat working who-info my-session-no
"Print a line about a user. Args: CONF-STAT WORKING WHO-INFO MY-SESSION-NO. &optional insert-function)
"Print a line about a user.
Args: CONF-STAT WORKING WHO-INFO MY-SESSION-NO &optional INSERT-FUNCTION.
CONF-STAT refer to the user. CONF-STAT refer to the user.
WORKING is the conf-stat of his current working conference. WORKING is the conf-stat of his current working conference.
WHO-INFO is the who-info. WHO-INFO is the who-info.
MY-SESSION-NO is the session number of the running session." MY-SESSION-NO is the session number of the running session.
(lyskom-insert &optional INSERT-FUNCTION is the function for inserting the text into
(lyskom-return-who-info-line (format "%4d%s" the buffer. If nil, use lyskom-insert."
(let ((insertfun (if insert-function
insert-function
'lyskom-insert)))
(funcall insertfun
(lyskom-return-who-info-line
(format "%4d%s"
(who-info->connection who-info) (who-info->connection who-info)
(if (= my-session-no (if (= my-session-no (who-info->connection who-info))
(who-info->connection who-info))
"*" "*"
" ")) " "))
(conf-stat->name conf-stat) (conf-stat->name conf-stat)
(cond (cond
((conf-stat->name working)) ((conf-stat->name working))
(t (lyskom-get-string (t (lyskom-get-string 'not-present-anywhere)))))
'not-present-anywhere))))) (if kom-show-where-and-what
(cond (funcall insertfun
(kom-show-where-and-what (lyskom-return-who-info-line
(lyskom-insert " "
(lyskom-return-who-info-line " "
(lyskom-return-username who-info) (lyskom-return-username who-info)
(concat "(" (concat "("
(who-info->doing-what who-info) (who-info->doing-what who-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