[Emacs-diffs] Changes to emacs/lisp/calc/calc-keypd.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-keypd.el
diff -c emacs/lisp/calc/calc-keypd.el:1.8 emacs/lisp/calc/calc-keypd.el:1.9
*** emacs/lisp/calc/calc-keypd.el:1.8   Tue Nov 30 17:13:23 2004
--- emacs/lisp/calc/calc-keypd.el       Wed Dec  8 22:46:13 2004
***************
*** 236,244 ****
    (define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press)
    (define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu)
    (define-key calc-keypad-mode-map "q" 'calc-keypad-off)
!   (define-key calc-keypad-mode-map [(mouse-3)] 'calc-keypad-right-click)
!   (define-key calc-keypad-mode-map [(mouse-2)] 'calc-keypad-middle-click)
!   (define-key calc-keypad-mode-map [(mouse-1)] 'calc-keypad-left-click)
    (put 'calc-keypad-mode 'mode-class 'special)
    (make-local-variable 'calc-main-buffer))
  
--- 236,256 ----
    (define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press)
    (define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu)
    (define-key calc-keypad-mode-map "q" 'calc-keypad-off)
!   (define-key calc-keypad-mode-map [down-mouse-1] 'ignore)
!   (define-key calc-keypad-mode-map [drag-mouse-1] 'ignore)
!   (define-key calc-keypad-mode-map [double-mouse-1] 'ignore)
!   (define-key calc-keypad-mode-map [triple-mouse-1] 'ignore)
!   (define-key calc-keypad-mode-map [down-mouse-2] 'ignore)
!   (define-key calc-keypad-mode-map [drag-mouse-2] 'ignore)
!   (define-key calc-keypad-mode-map [double-mouse-2] 'ignore)
!   (define-key calc-keypad-mode-map [triple-mouse-2] 'ignore)
!   (define-key calc-keypad-mode-map [down-mouse-3] 'ignore)
!   (define-key calc-keypad-mode-map [drag-mouse-3] 'ignore)
!   (define-key calc-keypad-mode-map [double-mouse-3] 'ignore)
!   (define-key calc-keypad-mode-map [triple-mouse-3] 'ignore)
!   (define-key calc-keypad-mode-map [mouse-3] 'calc-keypad-right-click)
!   (define-key calc-keypad-mode-map [mouse-2] 'calc-keypad-middle-click)
!   (define-key calc-keypad-mode-map [mouse-1] 'calc-keypad-left-click)
    (put 'calc-keypad-mode 'mode-class 'special)
    (make-local-variable 'calc-main-buffer))
  
***************
*** 529,536 ****
  (defun calc-keypad-left-click (event)
    "Handle a left-button mouse click in Calc Keypad window."
    (interactive "e")
!   (goto-char (posn-point (event-start event)))
!   (calc-keypad-press))
  
  (defun calc-keypad-right-click (event)
    "Handle a right-button mouse click in Calc Keypad window."
--- 541,549 ----
  (defun calc-keypad-left-click (event)
    "Handle a left-button mouse click in Calc Keypad window."
    (interactive "e")
!   (with-current-buffer calc-keypad-buffer
!     (goto-char (posn-point (event-start event)))
!     (calc-keypad-press)))
  
  (defun calc-keypad-right-click (event)
    "Handle a right-button mouse click in Calc Keypad window."