236 |
(define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press) |
(define-key calc-keypad-mode-map (kbd "RET") 'calc-keypad-press) |
237 |
(define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu) |
(define-key calc-keypad-mode-map (kbd "TAB") 'calc-keypad-menu) |
238 |
(define-key calc-keypad-mode-map "q" 'calc-keypad-off) |
(define-key calc-keypad-mode-map "q" 'calc-keypad-off) |
239 |
(define-key calc-keypad-mode-map [(mouse-3)] 'calc-keypad-right-click) |
(define-key calc-keypad-mode-map [down-mouse-1] 'ignore) |
240 |
(define-key calc-keypad-mode-map [(mouse-2)] 'calc-keypad-middle-click) |
(define-key calc-keypad-mode-map [drag-mouse-1] 'ignore) |
241 |
(define-key calc-keypad-mode-map [(mouse-1)] 'calc-keypad-left-click) |
(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) |
254 |
(put 'calc-keypad-mode 'mode-class 'special) |
(put 'calc-keypad-mode 'mode-class 'special) |
255 |
(make-local-variable 'calc-main-buffer)) |
(make-local-variable 'calc-main-buffer)) |
256 |
|
|
541 |
(defun calc-keypad-left-click (event) |
(defun calc-keypad-left-click (event) |
542 |
"Handle a left-button mouse click in Calc Keypad window." |
"Handle a left-button mouse click in Calc Keypad window." |
543 |
(interactive "e") |
(interactive "e") |
544 |
(goto-char (posn-point (event-start event))) |
(with-current-buffer calc-keypad-buffer |
545 |
(calc-keypad-press)) |
(goto-char (posn-point (event-start event))) |
546 |
|
(calc-keypad-press))) |
547 |
|
|
548 |
(defun calc-keypad-right-click (event) |
(defun calc-keypad-right-click (event) |
549 |
"Handle a right-button mouse click in Calc Keypad window." |
"Handle a right-button mouse click in Calc Keypad window." |