From faccb8d58ca8b257fa16f5fc7a37999d0a3773bf Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 15 Jun 2011 08:55:09 +0200 Subject: [PATCH] Make S-up/down/left/right in indented clocktable BEGIN lines * lisp/org.el (org-find-dblock): (org-clocktable-try-shift): Make regexp work also when #+begin line is indentex. Achim Gratz writes: It wasn't possible to use S-up/down/left/right on the clocktable BEGIN line when the whole table was indented. Interestingly enough calling the function directly would work, it turned out to be a regexp in org.el that was still pinned to bol. There was a second one further down that is used to recognize dynamic blocks that got the same treatment. TINYCHANGE --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ef8119253..ade1f256e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3902,7 +3902,7 @@ If yes, offer to stop it and to save the buffer with the changes." (defun org-clocktable-try-shift (dir n) "Check if this line starts a clock table, if yes, shift the time block." - (when (org-match-line "#\\+BEGIN: clocktable\\>") + (when (org-match-line "^[ \t]*#\\+BEGIN:[ \t]+clocktable\\>") (org-clocktable-shift dir n))) ;; Autoload org-timer.el @@ -10598,7 +10598,7 @@ If not found, stay at current position and return nil." (let (pos) (save-excursion (goto-char (point-min)) - (setq pos (and (re-search-forward (concat "^#\\+BEGIN:[ \t]+" name "\\>") + (setq pos (and (re-search-forward (concat "^[ \t]*#\\+BEGIN:[ \t]+" name "\\>") nil t) (match-beginning 0)))) (if pos (goto-char pos))