From b6a4afe0f7c2449bf4f726f25b3fe6e51ef504d0 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 8 Jun 2003 07:58:37 +0000 Subject: [PATCH] * riece-filter.el (riece-handle-numeric-reply): Don't decode messages. (riece-handle-message): Ditto. (riece-sentinel): Clear system here. * riece-server.el (riece-server-process-name): New function. (riece-server-process): New function. (riece-close-server): Abolish. * riece-identity.el: Adopt vector object representation for identity objects. (riece-with-identity-buffer): New macro. (riece-decode-identity): New function. (riece-encode-identity): New function. * riece-globals.el (riece-process-list): New variable. (riece-server-process-alist): Abolish. (riece-channel-buffer-alist): Abolish. (riece-user-list-buffer-alist): Abolish. (riece-short-channel-indicator): New variable. * riece-channel.el: Assume that we are already in the server buffer. * riece-user.el: Likewise. --- lisp/riece-globals.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el index 6c77e86..4f1305d 100644 --- a/lisp/riece-globals.el +++ b/lisp/riece-globals.el @@ -25,10 +25,8 @@ ;;; Code: ;;; Miscellaneous global variables: -(defvar riece-server-process nil - "Primary server process.") -(defvar riece-server-process-alist nil - "An alist mapping secondary server name to opened processes.") +(defvar riece-process-list nil + "List of processes opened in the current session.") (defvar riece-current-channel nil "The channel you currently have joined.") @@ -115,7 +113,9 @@ Local to the channel buffers.") (defvar riece-channel-indicator "None" "A modeline indicator of the current channel.") (defvar riece-channel-list-indicator "No channel" - "The current joined channels, \"pretty-printed.\".") + "A modeline indicator of the current joined channels.") +(defvar riece-short-channel-indicator "None" + "A modeline indicator of the current channel.") (defvar riece-user-indicator nil) (defvar riece-away-indicator "-") @@ -143,8 +143,6 @@ Local to the channel buffers.") "Format of user list buffer.") (defvar riece-wallops-buffer " *WALLOPS*") -(defvar riece-channel-buffer-alist nil) -(defvar riece-user-list-buffer-alist nil) (defvar riece-buffer-list nil) (defvar riece-overriding-server-name nil) -- 1.7.10.4