summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-10-29 16:26:34 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-10-29 16:26:34 +0100
commit07c889570538c332ccf4f6d67c4040718a202f0e (patch)
tree334b98c1d0146504f622eba4df09053a7b19628a
parent2e8591783fa3f9cd01c485dcd5e3c056b740c23f (diff)
downloadorg-mode-07c889570538c332ccf4f6d67c4040718a202f0e.tar.gz
org-element: Fix void-function org-clocking-buffer error
* lisp/org-element.el (org-element-headline-parser, org-element-inlinetask-parser): Fix void-function org-clocking-buffer error.
-rw-r--r--lisp/org-element.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el
index 4b973be..5c06f72 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -798,7 +798,8 @@ Assume point is at beginning of the headline."
(skip-chars-backward " \r\t\n")
(forward-line)
(point))))
- (clockedp (and (eq (org-clocking-buffer)
+ (clockedp (and (featurep 'org-clock)
+ (eq (org-clocking-buffer)
(or (buffer-base-buffer) (current-buffer)))
(save-excursion
(goto-char (marker-position org-clock-marker))
@@ -966,7 +967,8 @@ Assume point is at beginning of the inline task."
(end-of-line)
(and (re-search-forward "^\\*+ END" limit t)
(match-beginning 0))))
- (clockedp (and (eq (org-clocking-buffer)
+ (clockedp (and (featurep 'org-clock)
+ (eq (org-clocking-buffer)
(or (buffer-base-buffer) (current-buffer)))
(let ((clock (marker-position org-clock-marker)))
(and (> clock begin) (< clock task-end)))))