From: Carsten Dominik <dominik@science.uva.nl>
To: Leo <sdl.web@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: org-mouse broken (was: Release: Org-mode 4.70)
Date: Thu, 5 Apr 2007 22:50:31 +0200 [thread overview]
Message-ID: <add5b5a1daee27ebd9896455edfab20c@science.uva.nl> (raw)
In-Reply-To: <m23b3eirl3.fsf@sl392.st-edmunds.cam.ac.uk>
[-- Attachment #1: Type: text/plain, Size: 204 bytes --]
Sometimes I wonder how many things can go wrong.
I did fix org-mouse, but forgot to put the new version into the package.
Please apply the patch below or use the version from Piotr's website.
- Carsten
[-- Attachment #2: patch --]
[-- Type: application/octet-stream, Size: 1456 bytes --]
--- org-mouse.el.orig Tue Apr 3 17:55:10 2007
+++ org-mouse.el Tue Apr 3 17:58:24 2007
@@ -548,6 +548,9 @@
(set-match-data ',match)
(apply ',function rest)))))
+(defun org-mouse-todo-keywords ()
+ (if (boundp 'org-todo-keywords-1) org-todo-keywords-1 org-todo-keywords))
+
(defun org-mouse-match-todo-keyword ()
(save-excursion
(org-back-to-heading)
@@ -616,10 +619,10 @@
(org-mouse-remove-match-and-spaces))))]
)))
((and (org-mouse-looking-at "\\b\\w+" "a-zA-Z0-9_")
- (member (match-string 0) org-todo-keywords))
+ (member (match-string 0) (org-mouse-todo-keywords)))
(popup-menu
`(nil
- ,@(org-mouse-keyword-replace-menu org-todo-keywords)
+ ,@(org-mouse-keyword-replace-menu (org-mouse-todo-keywords))
"--"
["Check TODOs" org-show-todo-tree t]
["List all TODO keywords" org-todo-list t]
@@ -758,7 +761,8 @@
,@(org-mouse-tag-menu))
("TODO Status"
,@(progn (org-mouse-match-todo-keyword)
- (org-mouse-keyword-replace-menu org-todo-keywords 1)))
+ (org-mouse-keyword-replace-menu (org-mouse-todo-keywords)
+ 1)))
["Show Tags"
(with-current-buffer org-mouse-main-buffer (org-agenda-show-tags))
:visible (not org-mouse-direct)]
@@ -1027,7 +1031,6 @@
["Quit" org-agenda-quit t]
["Exit and Release Buffers" org-agenda-exit t]
))))
-
(defun org-mouse-get-gesture (event)
(let ((startxy (posn-x-y (event-start event)))
[-- Attachment #3: Type: text/plain, Size: 685 bytes --]
On Apr 5, 2007, at 20:50, Leo wrote:
> On 2007-04-03, Carsten Dominik said:
>
>> * Overview
>>
>> - The dust settles after the upgrade of TODO keywords.
>
> This seems to break org-mouse. Now right click on the TODO keywords
> bring up the submenu "TODO Status" with only 1 item "None".
>
> --
> Leo <sdl.web AT gmail.com> (GPG Key: 9283AA3F)
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>
--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477
[-- Attachment #4: Type: text/plain, Size: 149 bytes --]
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
prev parent reply other threads:[~2007-04-05 20:54 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-04-03 22:13 Release: Org-mode 4.70 Carsten Dominik
2007-04-03 23:06 ` Leo
2007-04-03 23:17 ` Leo
2007-04-05 9:18 ` Bastien
2007-04-05 16:56 ` Carsten Dominik
2007-04-04 13:57 ` Jason F. McBrayer
2007-04-05 18:50 ` org-mouse broken (was: Release: Org-mode 4.70) Leo
2007-04-05 20:50 ` 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
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=add5b5a1daee27ebd9896455edfab20c@science.uva.nl \
--to=dominik@science.uva.nl \
--cc=emacs-orgmode@gnu.org \
--cc=sdl.web@gmail.com \
/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 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).