projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use lexical binding.
[riece]
/
lisp
/
riece-globals.el
diff --git
a/lisp/riece-globals.el
b/lisp/riece-globals.el
index
670427b
..
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>
;; 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
;; 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., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Code:
;;; Code:
@@
-66,10
+66,10
@@
"If non-nil, attempt to reconnect with password.")
(defvar riece-user-obarray-size 1327
"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
(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-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-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-send-queue nil
"Send queue for avoiding client flood.
Local to the server buffers.")
@@
-135,7
+138,7
@@
Local to the server buffers.")
"Cache of channel names.
Local to the server buffers.")
(defvar riece-user-cache nil
"Cache of channel names.
Local to the server buffers.")
(defvar riece-user-cache nil
- "Cache of usernames.
+ "Cache of user
names.
Local to the server buffers.")
;;; Variables local to the channel buffers:
Local to the server buffers.")
;;; Variables local to the channel buffers:
@@
-155,26
+158,34
@@
Local to the channel buffers.")
;;; Modeline indicators:
(defvar riece-mode-line-buffer-identification 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.")
(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.")
(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.")
(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.")
(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.")
(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.")
(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.")
(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
;;; Buffers:
(defvar riece-command-buffer nil