diff options
| author | Jay Belanger | 2004-12-08 22:46:13 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-12-08 22:46:13 +0000 |
| commit | 46110f337ed952f8cf285b94513f67a5a392aab3 (patch) | |
| tree | 0375438ac193fb506d5a797f7393624582b25ccc | |
| parent | cc1caa4e1a8d5dd9b06392041eb44b0f926973e6 (diff) | |
| download | emacs-46110f337ed952f8cf285b94513f67a5a392aab3.tar.gz emacs-46110f337ed952f8cf285b94513f67a5a392aab3.zip | |
(calc-keypad-mode): Unbind unused mouse events.
(calc-keypad-left-click): Set buffer to calc-keymap-buffer.
| -rw-r--r-- | lisp/calc/calc-keypd.el | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el index e517ac1942b..2c2a0f0f4aa 100644 --- a/lisp/calc/calc-keypd.el +++ b/lisp/calc/calc-keypd.el | |||
| @@ -236,9 +236,21 @@ | |||
| 236 | (define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press) | 236 | (define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press) |
| 237 | (define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu) | 237 | (define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu) |
| 238 | (define-key calc-keypad-mode-map "q" 'calc-keypad-off) | 238 | (define-key calc-keypad-mode-map "q" 'calc-keypad-off) |
| 239 | (define-key calc-keypad-mode-map [(mouse-3)] 'calc-keypad-right-click) | 239 | (define-key calc-keypad-mode-map [down-mouse-1] 'ignore) |
| 240 | (define-key calc-keypad-mode-map [(mouse-2)] 'calc-keypad-middle-click) | 240 | (define-key calc-keypad-mode-map [drag-mouse-1] 'ignore) |
| 241 | (define-key calc-keypad-mode-map [(mouse-1)] 'calc-keypad-left-click) | 241 | (define-key calc-keypad-mode-map [double-mouse-1] 'ignore) |
| 242 | (define-key calc-keypad-mode-map [triple-mouse-1] 'ignore) | ||
| 243 | (define-key calc-keypad-mode-map [down-mouse-2] 'ignore) | ||
| 244 | (define-key calc-keypad-mode-map [drag-mouse-2] 'ignore) | ||
| 245 | (define-key calc-keypad-mode-map [double-mouse-2] 'ignore) | ||
| 246 | (define-key calc-keypad-mode-map [triple-mouse-2] 'ignore) | ||
| 247 | (define-key calc-keypad-mode-map [down-mouse-3] 'ignore) | ||
| 248 | (define-key calc-keypad-mode-map [drag-mouse-3] 'ignore) | ||
| 249 | (define-key calc-keypad-mode-map [double-mouse-3] 'ignore) | ||
| 250 | (define-key calc-keypad-mode-map [triple-mouse-3] 'ignore) | ||
| 251 | (define-key calc-keypad-mode-map [mouse-3] 'calc-keypad-right-click) | ||
| 252 | (define-key calc-keypad-mode-map [mouse-2] 'calc-keypad-middle-click) | ||
| 253 | (define-key calc-keypad-mode-map [mouse-1] 'calc-keypad-left-click) | ||
| 242 | (put 'calc-keypad-mode 'mode-class 'special) | 254 | (put 'calc-keypad-mode 'mode-class 'special) |
| 243 | (make-local-variable 'calc-main-buffer)) | 255 | (make-local-variable 'calc-main-buffer)) |
| 244 | 256 | ||
| @@ -529,8 +541,9 @@ | |||
| 529 | (defun calc-keypad-left-click (event) | 541 | (defun calc-keypad-left-click (event) |
| 530 | "Handle a left-button mouse click in Calc Keypad window." | 542 | "Handle a left-button mouse click in Calc Keypad window." |
| 531 | (interactive "e") | 543 | (interactive "e") |
| 532 | (goto-char (posn-point (event-start event))) | 544 | (with-current-buffer calc-keypad-buffer |
| 533 | (calc-keypad-press)) | 545 | (goto-char (posn-point (event-start event))) |
| 546 | (calc-keypad-press))) | ||
| 534 | 547 | ||
| 535 | (defun calc-keypad-right-click (event) | 548 | (defun calc-keypad-right-click (event) |
| 536 | "Handle a right-button mouse click in Calc Keypad window." | 549 | "Handle a right-button mouse click in Calc Keypad window." |