mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(calc-keypad-mode): Unbind unused mouse events.

Browse Source 
(calc-keypad-left-click): Set buffer to calc-keymap-buffer.
This commit is contained in:
Jay Belanger 2004-12-08 22:46:13 +00:00
parent cc1caa4e1a
commit 46110f337e
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/calc/calc-keypd.el
View File

@ -236,9 +236,21 @@
(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))
@ -529,8 +541,9 @@
(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."