;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
;; Author: David Gillespie <daveg@synaptics.com>
-;; Maintainers: D. Goel <deego@gnufans.org>
-;; Colin Walters <walters@debian.org>
+;; Maintainer: Jay Belanger <belanger@truman.edu>
;; This file is part of GNU Emacs.
;;; Code:
-
;; This file is autoloaded from calc-ext.el.
-(require 'calc-ext)
+(require 'calc-ext)
(require 'calc-macs)
-(defun calc-Need-calc-keypd () nil)
-
-
(defvar calc-keypad-buffer nil)
(defvar calc-keypad-menu 0)
(defvar calc-keypad-full-layout nil)
(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)
+ (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))
(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))
+ (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."
(command-execute cmd)
(error "Not a Calc command: %s" (key-description keys)))))
+(provide 'calc-keypd)
+;;; arch-tag: 4ba0d360-2bb6-40b8-adfa-eb373765b3f9
;;; calc-keypd.el ends here