From mboxrd@z Thu Jan  1 00:00:00 1970
From: Levin <zslevin@gmail.com>
Subject: Re: Release: Org-mode 5.09
Date: Tue, 18 Sep 2007 17:00:17 +0800
Message-ID: <200709181700.17786.zslevin@gmail.com>
References: <b592681d364740bddfba53b503dbcc7f@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain;
  charset="gb18030"
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1IXYyL-0007b1-FB
	for emacs-orgmode@gnu.org; Tue, 18 Sep 2007 05:02:21 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1IXYyJ-0007ap-Jd
	for emacs-orgmode@gnu.org; Tue, 18 Sep 2007 05:02:21 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1IXYyJ-0007am-BV
	for emacs-orgmode@gnu.org; Tue, 18 Sep 2007 05:02:19 -0400
Received: from rv-out-0910.google.com ([209.85.198.184])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <zslevin@gmail.com>) id 1IXYyI-0005EG-OZ
	for emacs-orgmode@gnu.org; Tue, 18 Sep 2007 05:02:18 -0400
Received: by rv-out-0910.google.com with SMTP id c27so1539254rvf
	for <emacs-orgmode@gnu.org>; Tue, 18 Sep 2007 02:02:17 -0700 (PDT)
In-Reply-To: <b592681d364740bddfba53b503dbcc7f@gmail.com>
Content-Disposition: inline
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Carsten Dominik <carsten.dominik@gmail.com>
Cc: emacs-orgmode@gnu.org

Hi Carsten,

>    - Priority cycling goes back to the nil state.

Priority cycling is a bit odd. When I use M-n to cycle, it turns 
from #C-> nil-> #C-> nil, and M-p will be #A->nil->#A->nil.

So I write this small patch to achieve: M-n will cycle from 
#A->#B->#C->nil->#A, and M-p will cycle from #C->#B->#A->nil->#C.

Hope it helps.

-Levin

;; This patch is against org 5.09

diff --git a/lisp/org/org.el b/lisp/org/org.el
index f4746b4..a5567f5 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -13462,7 +13462,11 @@ ACTION can be `set', `up', `down', or a character."
       (if (looking-at org-priority-regexp)
 	  (setq current (string-to-char (match-string 2))
 		have t)
-	(setq current org-default-priority))
+	(setq current (if (eq action 'up)
+			  (1+ org-lowest-priority)
+			(if (eq action 'down)
+			    (1- org-highest-priority)
+			  org-default-priority))))
       (cond
        ((or (eq action 'set) (integerp action))
 	(if (integerp action)