diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-29 16:26:34 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-29 16:26:34 +0100 |
commit | 07c889570538c332ccf4f6d67c4040718a202f0e (patch) | |
tree | 334b98c1d0146504f622eba4df09053a7b19628a | |
parent | 2e8591783fa3f9cd01c485dcd5e3c056b740c23f (diff) | |
download | org-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.el | 6 |
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))))) |