emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* 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

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


[-- Attachment #1.1: Type: text/plain, Size: 849 bytes --]

Applied, thanks.

- Carsten

P.S.  If you know how to fix the context menus,
be my guest..... :-)

On Mar 30, 2009, at 10:45 PM, Tony E. Bennett wrote:

>
> 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:
>
>
> <org-mouse.pat>
>
> thanks
>
> --tony
> _______________________________________________
> 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


[-- Attachment #1.2: Type: text/html, Size: 1268 bytes --]

[-- Attachment #2: 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

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

Tony E. Bennett wrote:
> 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)
>
>   

Try it this way for XEmacs:
 [(control mouse-4)]

Regards

Andreas Roehler

> 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:
>
>
>   
> ------------------------------------------------------------------------
>
>
>
> thanks
>
> --tony
>   
> ------------------------------------------------------------------------
>
> _______________________________________________
> 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

end of thread, other threads:[~2009-04-03 19:51 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-03-30 20:45 XEmacs complains about a few define-key sequences in org-mouse.el Tony E. Bennett
2009-03-31 16:28 ` Carsten Dominik
2009-04-03 18:52 ` Andreas Röhler

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).