(defvar riece-ctlseq-enabled nil)
 
-(defvar riece-ctlseq-description
+(defconst riece-ctlseq-description
   "Mark up control sequences in IRC buffers.")
 
 (defun riece-ctlseq-compatible-attributes-p (this other)
 
 
 (defvar riece-kakasi-enabled nil)
 
-(defvar riece-kakasi-description
+(defconst riece-kakasi-description
   "Convert Japanese to roman string by KAKASI.")
 
 (defvar riece-kakasi-process nil)
 
   :type 'boolean
   :group 'riece-yank)
 
-(defvar riece-yank-description
+(defconst riece-yank-description
   "Enter the element of kill-ring.")
 
 (defvar riece-yank-enabled nil)