From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: org-mouse broken (was: Release: Org-mode 4.70) Date: Thu, 5 Apr 2007 22:50:31 +0200 Message-ID: References: Mime-Version: 1.0 (Apple Message framework v624) Content-Type: multipart/mixed; boundary=Apple-Mail-4--69464022 Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HZYyB-0005q3-4k for emacs-orgmode@gnu.org; Thu, 05 Apr 2007 16:54:11 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HZYy9-0005iQ-3x for emacs-orgmode@gnu.org; Thu, 05 Apr 2007 16:54:10 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HZYy8-0005hi-Oc for emacs-orgmode@gnu.org; Thu, 05 Apr 2007 16:54:08 -0400 Received: from korteweg.uva.nl ([146.50.98.70]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1HZYui-0004fS-U3 for emacs-orgmode@gnu.org; Thu, 05 Apr 2007 16:50:37 -0400 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Leo Cc: emacs-orgmode@gnu.org --Apple-Mail-4--69464022 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=US-ASCII; format=flowed 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 --Apple-Mail-4--69464022 Content-Transfer-Encoding: 7bit Content-Type: application/octet-stream; x-unix-mode=0644; name="patch" Content-Disposition: attachment; filename=patch --- 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))) --Apple-Mail-4--69464022 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=US-ASCII; format=flowed 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 (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 --Apple-Mail-4--69464022 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --Apple-Mail-4--69464022--