mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-22 09:48:28 +00:00
Code Releases Activity

Make S-up/down/left/right in indented clocktable BEGIN lines

Browse source 
* 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
This commit is contained in:
Carsten Dominik 2011-06-15 08:55:09 +02:00
parent e78ed7bbde
commit faccb8d58c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org.el
View file

@ -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))