diff options
author | Carsten Dominik <[email protected]> | 2009-02-19 15:10:20 +0000 |
---|---|---|
committer | Carsten Dominik <[email protected]> | 2009-02-19 15:10:20 +0000 |
commit | 7b96ff9a00561c03b017c15837e7aecbb3a34073 (patch) | |
tree | 68fe049dfcfb4b1ff6710a71dc5ed08ddd3947d8 /lisp | |
parent | 8fca05449a139e7436fd4eb984f9f1e0c5cbdbac (diff) |
2009-02-19 Carsten Dominik <[email protected]>
* org.el (org-block-todo-from-children-or-siblings): Use
`org-up-heading-all' so that this will work correctly with hidden
property drawers and entries.
(org-end-of-line, org-beginning-of-line): Make prefix arg work, by
falling back to normal, default command.
(org-get-location): Temporarily turn off special behavior.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/org/ChangeLog | 9 | ||||
-rw-r--r-- | lisp/org/org.el | 34 |
2 files changed, 29 insertions, 14 deletions
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index f0eb33ff79..7e66c35dfd 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,12 @@ +2009-02-19 Carsten Dominik <[email protected]> + + * org.el (org-block-todo-from-children-or-siblings): Use + `org-up-heading-all' so that this will work correctly with hidden + property drawers and entries. + (org-end-of-line, org-beginning-of-line): Make prefix arg work, by + falling back to normal, default command. + (org-get-location): Temporarily turn off special behavior. + 2009-02-13 Glenn Morris <[email protected]> * org-rmail.el (rmail-show-message): Restore argument list to the diff --git a/lisp/org/org.el b/lisp/org/org.el index e34c8188a7..d917757991 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el @@ -4812,7 +4812,7 @@ or nil." (goto-char org-goto-start-pos) (and (org-invisible-p) (org-show-context))) (goto-char (point-min))) - (org-beginning-of-line) + (let (org-special-ctrl-a/e) (org-beginning-of-line)) (message "Select location and press RET") (use-local-map org-goto-map) (recursive-edit) @@ -8588,7 +8588,7 @@ changes. Such blocking occurs when: (org-back-to-heading t) (when (save-excursion (ignore-errors - (outline-up-heading 1) + (org-up-heading-all 1) (org-entry-get (point) "ORDERED"))) (let* ((this-level (funcall outline-level)) (current-level this-level)) @@ -14697,14 +14697,16 @@ beyond the end of the headline." (interactive "P") (let ((pos (point)) refpos) (beginning-of-line 1) - (if (bobp) - nil - (backward-char 1) - (if (org-invisible-p) - (while (and (not (bobp)) (org-invisible-p)) - (backward-char 1) - (beginning-of-line 1)) - (forward-char 1))) + (if (and arg (fboundp 'move-beginning-of-line)) + (call-interactively 'move-beginning-of-line) + (if (bobp) + nil + (backward-char 1) + (if (org-invisible-p) + (while (and (not (bobp)) (org-invisible-p)) + (backward-char 1) + (beginning-of-line 1)) + (forward-char 1)))) (when org-special-ctrl-a/e (cond ((and (looking-at org-complex-heading-regexp) @@ -14738,8 +14740,11 @@ first attempt, and only move to after the tags when the cursor is already beyond the end of the headline." (interactive "P") (if (or (not org-special-ctrl-a/e) - (not (org-on-heading-p))) - (end-of-line arg) + (not (org-on-heading-p)) + arg) + (call-interactively (if (fboundp 'move-end-of-line) + 'move-end-of-line + 'end-of-line)) (let ((pos (point))) (beginning-of-line 1) (if (looking-at (org-re ".*?\\([ \t]*\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$")) @@ -14751,11 +14756,12 @@ beyond the end of the headline." (if (or (< pos (match-end 0)) (not (eq this-command last-command))) (goto-char (match-end 0)) (goto-char (match-beginning 1)))) - (end-of-line arg)))) + (call-interactively (if (fboundp 'move-end-of-line) + 'move-end-of-line + 'end-of-line))))) (org-no-warnings (and (featurep 'xemacs) (setq zmacs-region-stays t)))) - (define-key org-mode-map "\C-a" 'org-beginning-of-line) (define-key org-mode-map "\C-e" 'org-end-of-line) |