Re: org-mouse broken (was: Release: Org-mode 4.70)

[Carsten Dominik <dominik@science.uva.nl>]

[-- 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