X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-yank.el;h=b6a2115527424467243663e0a7b8a2586e28b30d;hp=3775f50c907184ace80f07ac45c118e24c327b6e;hb=b605439dca072da7b8935080e766f06f886921bb;hpb=dceb4491b025a2bdb914f81e6808a4504f8332a3

diff --git a/lisp/riece-yank.el b/lisp/riece-yank.el
index 3775f50..b6a2115 100644
--- a/lisp/riece-yank.el
+++ b/lisp/riece-yank.el
@@ -46,18 +46,14 @@ before/after the first/last non-blank line."
 (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