-;;; 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>
;; 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:
"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)
(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.")
(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
;;; 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