mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 09:48:28 +00:00
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
This commit is contained in:
parent
e78ed7bbde
commit
faccb8d58c
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue