ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Consistent behavior when changing TODO keywords with S-cursor. 

When the variable `org-treat-S-cursor-todo-selection-as-state-change'
is turned off, switching TODO keywords with S-cursor will not only
turn off logging, but also blocking.
This commit is contained in:
Carsten Dominik 2009-06-14 08:03:14 +02:00
parent ff34672282
commit 7a9275fd89
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -3794,6 +3794,7 @@ This variable is set by `org-before-change-function'.
(defvar org-inhibit-startup nil) ; Dynamically-scoped param. (defvar org-inhibit-startup nil) ; Dynamically-scoped param.
(defvar org-agenda-keep-modes nil) ; Dynamically-scoped param. (defvar org-agenda-keep-modes nil) ; Dynamically-scoped param.
(defvar org-inhibit-logging nil) ; Dynamically-scoped param. (defvar org-inhibit-logging nil) ; Dynamically-scoped param.
(defvar org-inhibit-blocking nil) ; Dynamically-scoped param.
(defvar org-table-buffer-is-an nil) (defvar org-table-buffer-is-an nil)
(defconst org-outline-regexp "\\*+ ") (defconst org-outline-regexp "\\*+ ")
@ -9003,7 +9004,8 @@ For calling through lisp, arg is also interpreted in the following way:
(when (equal arg '(64)) (when (equal arg '(64))
(setq arg nil org-blocker-hook nil)) (setq arg nil org-blocker-hook nil))
(when (and org-blocker-hook (when (and org-blocker-hook
(org-entry-get nil "NOBLOCKING")) (or org-inhibit-blocking
(org-entry-get nil "NOBLOCKING")))
(setq org-blocker-hook nil)) (setq org-blocker-hook nil))
(save-excursion (save-excursion
(catch 'exit (catch 'exit
@ -14352,6 +14354,8 @@ Depending on context, this does one of the following:
((and (not (eq org-support-shift-select 'always)) ((and (not (eq org-support-shift-select 'always))
(org-on-heading-p)) (org-on-heading-p))
(let ((org-inhibit-logging (let ((org-inhibit-logging
(not org-treat-S-cursor-todo-selection-as-state-change))
(org-inhibit-blocking
(not org-treat-S-cursor-todo-selection-as-state-change))) (not org-treat-S-cursor-todo-selection-as-state-change)))
(org-call-with-arg 'org-todo 'right))) (org-call-with-arg 'org-todo 'right)))
((or (and org-support-shift-select ((or (and org-support-shift-select
@ -14384,6 +14388,8 @@ Depending on context, this does one of the following:
((and (not (eq org-support-shift-select 'always)) ((and (not (eq org-support-shift-select 'always))
(org-on-heading-p)) (org-on-heading-p))
(let ((org-inhibit-logging (let ((org-inhibit-logging
(not org-treat-S-cursor-todo-selection-as-state-change))
(org-inhibit-blocking
(not org-treat-S-cursor-todo-selection-as-state-change))) (not org-treat-S-cursor-todo-selection-as-state-change)))
(org-call-with-arg 'org-todo 'left))) (org-call-with-arg 'org-todo 'left)))
((or (and org-support-shift-select ((or (and org-support-shift-select