emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Levin <zslevin@gmail.com>
To: Carsten Dominik <carsten.dominik@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Release: Org-mode 5.09
Date: Tue, 18 Sep 2007 17:00:17 +0800	[thread overview]
Message-ID: <200709181700.17786.zslevin@gmail.com> (raw)
In-Reply-To: <b592681d364740bddfba53b503dbcc7f@gmail.com>

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)

  parent reply	other threads:[~2007-09-18  9:02 UTC|newest]

Thread overview: 19+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2007-09-15 10:35 Release: Org-mode 5.09 Carsten Dominik
2007-09-15 21:25 ` Rainer Stengele
2007-09-17 12:24   ` Carsten Dominik
2007-09-18  1:00 ` Xavier Maillard
2007-09-18  9:00 ` Levin [this message]
2007-09-18 10:59   ` Carsten Dominik
2007-09-19  0:49     ` Bastien
2007-09-20  8:45       ` Carsten Dominik
2007-09-20  8:45       ` Carsten Dominik
2007-09-20 13:34         ` Bastien
2007-09-20 14:08           ` Nuutti Kotivuori
2007-09-20 14:23             ` Bernt Hansen
2007-09-20 20:07               ` John Wiegley
2007-09-20 14:36             ` Bastien
2007-09-24  9:33           ` Rick Moynihan
2007-09-18  9:27 ` Levin
2007-09-18 11:01   ` Carsten Dominik
2007-09-18  9:38 ` Levin
2007-09-18 11:11   ` Carsten Dominik

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=200709181700.17786.zslevin@gmail.com \
    --to=zslevin@gmail.com \
    --cc=carsten.dominik@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /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).