(defvar riece-ctlseq-face-cache nil)
(defvar riece-ctlseq-face-counter 0)
-(defvar riece-ctlseq-enabled nil)
-
(defconst riece-ctlseq-description
"Mark up control sequences in IRC buffers.")
attrs)))
(defun riece-ctlseq-message-filter (message)
- (if riece-ctlseq-enabled
+ (if (get 'riece-ctlseq 'riece-addon-enabled)
(let ((start 0)
(end (length (riece-message-text message)))
attrs)
(remove-hook 'riece-message-filter-functions 'riece-ctlseq-message-filter))
(defun riece-ctlseq-enable ()
- (setq riece-ctlseq-enabled t))
+ )
(defun riece-ctlseq-disable ()
- (setq riece-ctlseq-enabled nil))
+ )
(provide 'riece-ctlseq)