Updates/improvements -- riece-xfaceb

[riece] / lisp / riece-globals.el

diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index a4addfa..50cec2c 100644 (file)
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -1,4 +1,4 @@
-;;; riece-globals.el --- global variables and constants.
+;;; riece-globals.el --- global variables and constants. -*- lexical-binding: t -*-
 ;; Copyright (C) 1998-2003 Daiki Ueno
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -65,8 +65,13 @@
 (defvar riece-reconnect-with-password nil
   "If non-nil, attempt to reconnect with password.")
 
-(defvar riece-obarray-size 1327
-  "The size of obarray used by riece on channelname and username space.")
+(defvar riece-user-obarray-size 1327
+  "The size of obarray used by riece on user name space.")
+
+(defvar riece-channel-obarray-size 103
+  "The size of obarray used by riece on channel name space.")
+
+(defvar riece-addon-dependencies nil)
 
 ;;; Variables local to the server buffers:
 (defvar riece-server-name nil
@@ -108,6 +113,9 @@ Local to the server buffers.")
 (defvar riece-read-point nil
   "Point at the last input was seen.
 Local to the server buffers.")
+(defvar riece-filter-running nil
+  "Lock of the process filter; non-nil indicates the process filter is running.
+Local to the server buffers.")
 (defvar riece-send-queue nil
   "Send queue for avoiding client flood.
 Local to the server buffers.")
@@ -117,12 +125,21 @@ Local to the server buffers.")
 (defvar riece-last-send-time nil
   "Timestamp of the last send.
 Local to the server buffers.")
-(defvar riece-obarray nil
-  "Namespace of the IRC world.
+(defvar riece-user-obarray nil
+  "USER namespace of the IRC world.
+Local to the server buffers.")
+(defvar riece-channel-obarray nil
+  "Channel namespace of the IRC world.
 Local to the server buffers.")
 (defvar riece-coding-system nil
   "Coding system for process I/O.
 Local to the server buffers.")
+(defvar riece-channel-cache nil
+  "Cache of channel names.
+Local to the server buffers.")
+(defvar riece-user-cache nil
+  "Cache of user names.
+Local to the server buffers.")
 
 ;;; Variables local to the channel buffers:
 (defvar riece-freeze nil
@@ -140,26 +157,35 @@ Local to the channel buffers.")
 Local to the channel buffers.")
 
 ;;; Modeline indicators:
+(defvar riece-mode-line-buffer-identification nil)
+(put 'riece-mode-line-buffer-identification 'risky-local-variable t)
 (defvar riece-channel-indicator "None"
   "String displayed on the modeline to indicate the current channel.")
+(put 'riece-channel-indicator 'risky-local-variable t)
 (defvar riece-long-channel-indicator "None"
   "String displayed on the modeline to indicate the current channel.
 Generally, this string will contain more information than
 riece-channel-indicator.")
+(put 'riece-long-channel-indicator 'risky-local-variable t)
 (defvar riece-channel-list-indicator "No channel"
   "String displayed on the modeline to show the joined channels.")
+(put 'riece-channel-list-indicator 'risky-local-variable t)
 (defvar riece-user-indicator nil
   "String displayed on the modeline to show the current nickname.")
+(put 'riece-user-indicator 'risky-local-variable t)
 
 (defvar riece-away-indicator "-"
   "String displayed on the modeline to allow the user to tell if the
 user is away.")
+(put 'riece-away-indicator 'risky-local-variable t)
 (defvar riece-operator-indicator "-"
   "String displayed on the modeline to allow the user to tell if the
 user is an operator.")
+(put 'riece-operator-indicator 'risky-local-variable t)
 (defvar riece-channel-status-indicator "-"
   "String displayed on the modeline to allow the user to tell if the
 user's status on the current channel.")
+(put 'riece-channel-status-indicator 'risky-local-variable t)
 
 ;;; Buffers:
 (defvar riece-command-buffer nil
@@ -176,6 +202,8 @@ user's status on the current channel.")
   "Buffer for messages arrived in the current channel.")
 (defvar riece-temp-buffer nil
   "Buffer for temporally use.")
+(defvar riece-debug-buffer nil
+  "Buffer for debug output.")
 
 (defvar riece-buffer-list nil)
 (defvar riece-overriding-server-name nil)