X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-globals.el;h=017e037f80dcbc9bc884677725dffce118ba2746;hb=cf84c926f8a5c65fcca630a41645e53b9a5f148c;hp=aa84072ec7ec2131fa557807cd50399e5c918bce;hpb=29f34b3ea80a1f37453bd92e1e1193d69a2c612e;p=elisp%2Friece.git

diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index aa84072..017e037 100644
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -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:
 
@@ -66,10 +66,10 @@
   "If non-nil, attempt to reconnect with password.")
 
 (defvar riece-user-obarray-size 1327
-  "The size of obarray used by riece on username space.")
+  "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 channelname space.")
+  "The size of obarray used by riece on channel name space.")
 
 (defvar riece-addon-dependencies nil)
 
@@ -113,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.")
@@ -131,6 +134,12 @@ 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
@@ -148,6 +157,7 @@ Local to the channel buffers.")
 Local to the channel buffers.")
 
 ;;; Modeline indicators:
+(defvar riece-mode-line-buffer-identification nil)
 (defvar riece-channel-indicator "None"
   "String displayed on the modeline to indicate the current channel.")
 (defvar riece-long-channel-indicator "None"