;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
(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