mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-03 11:33:46 +00:00
Code

org-element: Fix void-function org-clocking-buffer error

Browse Source 
* lisp/org-element.el (org-element-headline-parser,
  org-element-inlinetask-parser): Fix void-function
  org-clocking-buffer error.
This commit is contained in:
Nicolas Goaziou 2012-10-29 16:26:34 +01:00
parent 2e8591783f
commit 07c8895705
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-element.el
View File

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