From 17299806a1647080ebcdfef544741c442bc1aa49 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Fri, 28 May 2010 10:54:43 +0900 Subject: [PATCH] Mark mode-line indicators as risky-local-variable. --- lisp/ChangeLog | 8 ++++++++ lisp/riece-globals.el | 8 ++++++++ 2 files changed, 16 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fce530f..1efef88 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2010-05-28 Daiki Ueno + + * riece-globals.el (riece-mode-line-buffer-identification) + (riece-channel-indicator, riece-long-channel-indicator) + (riece-channel-list-indicator, riece-user-indicator) + (riece-away-indicator, riece-operator-indicator) + (riece-channel-status-indicator): Mark as risky-local-variable. + 2010-04-07 Daiki Ueno * COMPILE (riece-install): Add workaround for XEmacs 21.5. diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el index 017e037..3991229 100644 --- a/lisp/riece-globals.el +++ b/lisp/riece-globals.el @@ -158,26 +158,34 @@ 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 -- 2.25.1