XEmacs complains about a few define-key sequences in org-mouse.el

* XEmacs complains about a few define-key sequences in org-mouse.el
@ 2009-03-30 20:45 Tony E. Bennett
  2009-03-31 16:28 ` Carsten Dominik
  2009-04-03 18:52 ` Andreas Röhler
  0 siblings, 2 replies; 3+ messages in thread
From: Tony E. Bennett @ 2009-03-30 20:45 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 414 bytes --]

XEmacs complains about a few define-key sequences in org-mouse.el.
For example:

  (define-key org-agenda-keymap [C-mouse-4] 'org-agenda-earlier)

These sequences are using a GNU emacs form that XEmacs does not support.
I've patched it like this, which stopped the errors at least:

  (define-key org-agenda-keymap (if (featurep 'xemacs) [(control mouse-4)] [C-mouse-4]) 'org-agenda-earlier)

Here is full set:

[-- Attachment #2: org-mouse.pat --]
[-- Type: application/octet-stream, Size: 2634 bytes --]

*** org-mouse.el	2009/03/30 18:15:28	1.1
--- org-mouse.el	2009/03/30 18:19:03
***************
*** 909,918 ****
         (define-key org-mode-map [mouse-3] 'org-mouse-show-context-menu))
       (define-key org-mode-map [down-mouse-1] 'org-mouse-down-mouse)
       (when (memq 'context-menu org-mouse-features)
!        (define-key org-mouse-map [C-drag-mouse-1] 'org-mouse-move-tree)
!        (define-key org-mouse-map [C-down-mouse-1] 'org-mouse-move-tree-start))
       (when (memq 'yank-link org-mouse-features)
!        (define-key org-mode-map [S-mouse-2] 'org-mouse-yank-link)
         (define-key org-mode-map [drag-mouse-3] 'org-mouse-yank-link))
       (when (memq 'move-tree org-mouse-features)
         (define-key org-mouse-map [drag-mouse-3] 'org-mouse-move-tree)
--- 909,918 ----
         (define-key org-mode-map [mouse-3] 'org-mouse-show-context-menu))
       (define-key org-mode-map [down-mouse-1] 'org-mouse-down-mouse)
       (when (memq 'context-menu org-mouse-features)
!        (define-key org-mouse-map (if (featurep 'xemacs) [(control drag-mouse-1)] [C-drag-mouse-1]) 'org-mouse-move-tree)
!        (define-key org-mouse-map (if (featurep 'xemacs) [(control down-mouse-1)] [C-down-mouse-1]) 'org-mouse-move-tree-start))
       (when (memq 'yank-link org-mouse-features)
!        (define-key org-mode-map (if (featurep 'xemacs) [(shift mouse-2)] [S-mouse-2]) 'org-mouse-yank-link)
         (define-key org-mode-map [drag-mouse-3] 'org-mouse-yank-link))
       (when (memq 'move-tree org-mouse-features)
         (define-key org-mouse-map [drag-mouse-3] 'org-mouse-move-tree)
***************
*** 1132,1139 ****
         (if (featurep 'xemacs) [button3] [mouse-3])
         'org-mouse-show-context-menu)
       (define-key org-agenda-keymap [down-mouse-3] 'org-mouse-move-tree-start)
!      (define-key org-agenda-keymap [C-mouse-4] 'org-agenda-earlier)
!      (define-key org-agenda-keymap [C-mouse-5] 'org-agenda-later)
       (define-key org-agenda-keymap [drag-mouse-3]
         '(lambda (event) (interactive "e")
  	  (case (org-mouse-get-gesture event)
--- 1132,1139 ----
         (if (featurep 'xemacs) [button3] [mouse-3])
         'org-mouse-show-context-menu)
       (define-key org-agenda-keymap [down-mouse-3] 'org-mouse-move-tree-start)
!      (define-key org-agenda-keymap (if (featurep 'xemacs) [(control mouse-4)] [C-mouse-4]) 'org-agenda-earlier)
!      (define-key org-agenda-keymap (if (featurep 'xemacs) [(control mouse-5)] [C-mouse-5]) 'org-agenda-later)
       (define-key org-agenda-keymap [drag-mouse-3]
         '(lambda (event) (interactive "e")
  	  (case (org-mouse-get-gesture event)

[-- Attachment #3: Type: text/plain, Size: 17 bytes --]

thanks

--tony

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply	[flat|nested] 3+ messages in thread