tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Bug fix.

Browse source
This commit is contained in:
Carsten Dominik 2008-04-10 14:50:39 +02:00
parent 35e2df38e4
commit 1018c67ebb
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-clock.el
View file

@ -530,7 +530,8 @@ the currently selected interval size."
(and (memq dir '(left down)) (setq n (- n))) (and (memq dir '(left down)) (setq n (- n)))
(save-excursion (save-excursion
(goto-char (point-at-bol)) (goto-char (point-at-bol))
(when (looking-at "#\\+BEGIN: clocktable\\>.*?:block[ \t]+\\(\\S-+\\)") (if (not (looking-at "#\\+BEGIN: clocktable\\>.*?:block[ \t]+\\(\\S-+\\)"))
(error "Line needs a :block definition before this command works")
(let* ((b (match-beginning 1)) (e (match-end 1)) (let* ((b (match-beginning 1)) (e (match-end 1))
(s (match-string 1)) (s (match-string 1))
block shift ins y mw d date wp m) block shift ins y mw d date wp m)