From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Tue, 1 Apr 2008 02:06:44 +0000 (+0000)
Subject: Autoload `calc-yank'.
X-Git-Tag: emacs-pretest-23.0.90~6735
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fa92d84bdeb44ac970fb343b0a7317aa08f17a6;p=emacs.git

Autoload `calc-yank'.
(calc-mode-map): Add keybindings for `calc-yank'.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index e32ba8dda66..b9a64385f41 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1031,6 +1031,8 @@ Used by `calc-user-invocation'.")
       (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 @@ Used by `calc-user-invocation'.")
     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)