Mercurial > emacs

changeset 80414:1de302584c6a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Autoload `calc-yank'. (calc-mode-map): Add keybindings for `calc-yank'.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 01 Apr 2008 02:30:31 +0000
parents c807f3954942
children 00ff2cb9d8a7
files lisp/calc/calc.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc.el	Mon Mar 31 22:40:06 2008 +0000
+++ b/lisp/calc/calc.el	Tue Apr 01 02:30:31 2008 +0000
@@ -948,6 +948,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")
@@ -1092,7 +1094,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)