/[emacs]/emacs/lisp/calc/calc-keypd.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-keypd.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by jpb, Tue Nov 30 17:13:23 2004 UTC revision 1.9 by jpb, Wed Dec 8 22:46:13 2004 UTC
# Line 236  Line 236 
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    
# Line 529  Line 541 
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."

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26