# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1207015604 0
# Node ID b3b75d97d96ad3eb17988eed953f8ca150476d1a
# Parent  33248fa26b8c7c6f0f0ef46b48a0920c7365750e
Autoload `calc-yank'.
(calc-mode-map): Add keybindings for `calc-yank'.

diff -r 33248fa26b8c -r b3b75d97d96a lisp/calc/calc.el
--- a/lisp/calc/calc.el	Tue Apr 01 00:54:03 2008 +0000
+++ b/lisp/calc/calc.el	Tue Apr 01 02:06:44 2008 +0000
@@ -1031,6 +1031,8 @@
       (define-key map "\C-m" 'calc-enter)
       (define-key map "\M-\C-m" 'calc-last-args-stub)
       (define-key map "\C-j" 'calc-over)
+      (define-key map "\C-y" 'calc-yank)
+      (define-key map [mouse-2] 'calc-yank)
       
       (mapc (lambda (x) (define-key map (char-to-string x) 'undefined))
             "lOW")
@@ -1182,7 +1184,9 @@
     calc-missing-key calc-mod calc-other-window calc-over calc-percent
     calc-pop-above calc-power calc-roll-down calc-roll-up
     calc-shift-Y-prefix-help calc-tutorial calcDigit-letter
-    report-calc-bug)))
+    report-calc-bug)
+
+ ("calc-yank" calc-yank)))
 
 
 ;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch)