From: Carsten Dominik <carsten.dominik@gmail.com>
To: Michael Sperber <sperber@deinprogramm.de>
Cc: emacs-orgmode@gnu.org
Subject: Re: Re: Support (or not) for Emacs 21, and XEmacs
Date: Fri, 23 Apr 2010 21:03:20 +0200 [thread overview]
Message-ID: <630328F0-8CE1-4CDE-8A81-F69A5A02900E@gmail.com> (raw)
In-Reply-To: <y9liq7ii2wx.fsf@deinprogramm.de>
Hi Michael,
thank you very much for this! I have (sort-of) applied the patch.
Please try to make your patches always against the latest git version
of Org-mode - we are moveing very fast.
- Carsten
On Apr 23, 2010, at 5:50 PM, Michael Sperber wrote:
>
> Carsten Dominik <carsten.dominik@gmail.com> writes:
>
>> 4. Can you make XEmacs understand mouse-3 instead of button3 ? Or
>> maybe it does understand these by now?
>
> It actually does this now. I've attached a patch that eliminates the
> relevant featurep conditionals.
>
> --
> Cheers =8-} Mike
> Friede, Völkerverständigung und überhaupt blabla
> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
> index 93ef921..886dacf 100644
> --- a/lisp/org-agenda.el
> +++ b/lisp/org-agenda.el
> @@ -1663,9 +1663,9 @@ The following commands are available:
> (org-defkey org-agenda-mode-map "\C-c\C-x\C-mp" 'org-mobile-push)
>
> (org-defkey org-agenda-mode-map
> - (if (featurep 'xemacs) [(button2)] [(mouse-2)]) 'org-agenda-goto-
> mouse)
> + [(mouse-2)] 'org-agenda-goto-mouse)
> (org-defkey org-agenda-mode-map
> - (if (featurep 'xemacs) [(button3)] [(mouse-3)]) 'org-agenda-show-
> mouse)
> + [(mouse-3)] 'org-agenda-show-mouse)
> (when org-agenda-mouse-1-follows-link
> (org-defkey org-agenda-mode-map [follow-link] 'mouse-face))
> (easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu"
> diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
> index 2d68b1a..22624d3 100644
> --- a/lisp/org-mouse.el
> +++ b/lisp/org-mouse.el
> @@ -1132,7 +1132,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
> '(lambda ()
> (setq org-mouse-context-menu-function 'org-mouse-agenda-context-
> menu)
> (define-key org-agenda-mode-map
> - (if (featurep 'xemacs) [button3] [mouse-3])
> + [mouse-3]
> 'org-mouse-show-context-menu)
> (define-key org-agenda-mode-map [down-mouse-3] 'org-mouse-move-
> tree-start)
> (define-key org-agenda-mode-map (if (featurep 'xemacs)
> [(control mouse-4)] [C-mouse-4]) 'org-agenda-earlier)
> diff --git a/lisp/org.el b/lisp/org.el
> index 7cad962..ebc55fd 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -4481,9 +4481,9 @@ The following commands are available:
>
> (defvar org-mouse-map (make-sparse-keymap))
> (org-defkey org-mouse-map
> - (if (featurep 'xemacs) [button2] [mouse-2]) 'org-open-at-mouse)
> + [mouse-2] 'org-open-at-mouse)
> (org-defkey org-mouse-map
> - (if (featurep 'xemacs) [button3] [mouse-3]) 'org-find-file-at-
> mouse)
> + [mouse-3] 'org-find-file-at-mouse)
> (when org-mouse-1-follows-link
> (org-defkey org-mouse-map [follow-link] 'mouse-face))
> (when org-tab-follows-link
> @@ -13590,9 +13590,9 @@ user."
> (map (copy-keymap calendar-mode-map))
> (minibuffer-local-map (copy-keymap minibuffer-local-map)))
> (org-defkey map (kbd "RET") 'org-calendar-select)
> - (org-defkey map (if (featurep 'xemacs) [button1] [mouse-1])
> + (org-defkey map [mouse-1]
> 'org-calendar-select-mouse)
> - (org-defkey map (if (featurep 'xemacs) [button2] [mouse-2])
> + (org-defkey map [mouse-2]
> 'org-calendar-select-mouse)
> (org-defkey minibuffer-local-map [(meta shift left)]
> (lambda () (interactive)
> @@ -17743,7 +17743,7 @@ the functionality can be provided as a fall-
> back.")
> (org-set-local 'fill-paragraph-function 'org-fill-paragraph)
> ;; Adaptive filling: To get full control, first make sure that
> ;; `adaptive-fill-regexp' never matches. Then install our own
> matcher.
> - (unless (local-variable-p 'adaptive-fill-regexp)
> + (unless (local-variable-p 'adaptive-fill-regexp (current-buffer))
> (org-set-local 'org-adaptive-fill-regexp-backup
> adaptive-fill-regexp))
> (org-set-local 'adaptive-fill-regexp "\000")
- Carsten
prev parent reply other threads:[~2010-04-23 22:25 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-04-14 8:15 Support (or not) for Emacs 21, and XEmacs Carsten Dominik
2010-04-16 10:26 ` Carsten Dominik
2010-04-16 10:27 ` Carsten Dominik
2010-04-16 12:19 ` Matt Lundin
2010-04-16 16:41 ` Carsten Dominik
2010-04-16 13:03 ` Sebastian Rose
2010-04-16 13:13 ` Bernt Hansen
2010-04-16 14:39 ` Carsten Dominik
2010-04-16 14:42 ` Bernt Hansen
2010-04-16 14:42 ` Carsten Dominik
2010-04-16 19:15 ` Bernt Hansen
2010-04-16 22:02 ` Carsten Dominik
2010-04-16 13:32 ` Rémi Vanicat
2010-04-16 13:56 ` Sebastian Rose
2010-04-16 13:07 ` Jan Böcker
2010-04-16 13:47 ` Günter Kolousek
2010-04-17 15:39 ` Michael Sperber
2010-04-17 20:31 ` Carsten Dominik
2010-04-18 8:22 ` Michael Sperber
2010-04-18 14:03 ` Carsten Dominik
2010-04-19 11:00 ` Michael Sperber
2010-04-19 11:19 ` Michael Sperber
2010-04-19 15:51 ` Carsten Dominik
2010-04-19 15:54 ` Michael Sperber
2010-04-19 15:55 ` Carsten Dominik
2010-04-19 15:59 ` Carsten Dominik
2010-05-07 7:51 ` Carsten Dominik
2010-05-07 8:30 ` Michael Sperber
2010-05-07 9:21 ` Carsten Dominik
2010-04-23 15:50 ` Michael Sperber
2010-04-23 19:03 ` Carsten Dominik [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=630328F0-8CE1-4CDE-8A81-F69A5A02900E@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=sperber@deinprogramm.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.