X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-yank.el;h=b6a2115527424467243663e0a7b8a2586e28b30d;hp=d959c32345db715973538648bec1bd96d9f747fa;hb=b9ad16fc8024cd63bf7f9933aceb0cc1c2c88db4;hpb=8bb0858f2815a32b2cd471fbdfbda2e86e82eb07

diff --git a/lisp/riece-yank.el b/lisp/riece-yank.el
index d959c32..b6a2115 100644
--- a/lisp/riece-yank.el
+++ b/lisp/riece-yank.el
@@ -43,20 +43,17 @@ before/after the first/last non-blank line."
   :type 'boolean
   :group 'riece-yank)
 
-(defvar riece-yank-description
+(defconst riece-yank-description
   "Enter the element of kill-ring.")
 
-(defvar riece-yank-enabled nil)
-
 (defun riece-yank-insinuate ()
   )
 
+(defvar riece-command-mode-map)
 (defun riece-yank-enable ()
-  (define-key riece-command-mode-map "\C-cy" 'riece-command-yank)
-  (setq riece-yank-enabled t))
+  (define-key riece-command-mode-map "\C-cy" 'riece-command-yank))
 (defun riece-yank-disable ()
-  (define-key riece-command-mode-map "\C-cy" 'undefined)
-  (setq riece-yank-enabled nil))
+  (define-key riece-command-mode-map "\C-cy" 'undefined))
 
 (defun riece-yank-strip-space (string)
   (with-temp-buffer