[elpa] externals/org 16b5ee0 2/3: org-clock: Replace org-clocking-buffer with org-clock-is-active

[ELPA Syncer]

branch: externals/org
commit 16b5ee0efb5592f78faeffa07048bfe741331a18
Author: Allen Li <darkfeline@felesatra.moe>
Commit: Kyle Meyer <kyle@kyleam.com>

    org-clock: Replace org-clocking-buffer with org-clock-is-active
    
    org-clocking-buffer and org-clock-is-active have the same definition.
    org-clocking-buffer is defined in org-clock.el while
    org-clock-is-active is defined in org.el.  org-clock.el requires
    org.el.
    
    org-clocking-buffer is kept as an alias to preserve backward
    compatibility with any user code.
    
    * lisp/org-clock.el (org-clocking-buffer): Moved to org.el.
    * lisp/org.el (org-clocking-buffer): Moved function.
    (org-clock-is-active): Made into an alias.
---
 lisp/org-clock.el | 4 ----
 lisp/org.el       | 6 +++---
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 4e6cac1..775d308 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -618,10 +618,6 @@ cannot be translated."
          ((stringp drawer) drawer)
          (t nil))))
 
-(defun org-clocking-buffer ()
-  "Return the clocking buffer if we are currently clocking a task or nil."
-  (marker-buffer org-clock-marker))
-
 (defun org-clocking-p ()
   "Return t when clocking a task."
   (not (equal (org-clocking-buffer) nil)))
diff --git a/lisp/org.el b/lisp/org.el
index fd62267..e35c19a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -144,7 +144,6 @@ Stars are put in group 1 and the trimmed body in group 2.")
 (declare-function org-clock-timestamps-down "org-clock" (&optional n))
 (declare-function org-clock-timestamps-up "org-clock" (&optional n))
 (declare-function org-clock-update-time-maybe "org-clock" ())
-(declare-function org-clocking-buffer "org-clock" ())
 (declare-function org-clocktable-shift "org-clock" (dir n))
 (declare-function org-columns-quit "org-colview" ())
 (declare-function org-columns-insert-dblock "org-colview" ())
@@ -3828,10 +3827,11 @@ This is needed for font-lock setup.")
   "Marker recording the last clock-in, but the headline position.")
 (defvar org-clock-heading ""
   "The heading of the current clock entry.")
-(defun org-clock-is-active ()
+(defun org-clocking-buffer ()
   "Return the buffer where the clock is currently running.
 Return nil if no clock is running."
   (marker-buffer org-clock-marker))
+(defalias 'org-clock-is-active #'org-clocking-buffer)
 
 (defun org-check-running-clock ()
   "Check if the current buffer contains the running clock.
@@ -8254,7 +8254,7 @@ function is being called interactively."
             ;; The clock marker is lost when using `sort-subr'; mark
             ;; the clock with temporary `:org-clock-marker-backup'
             ;; text property.
-            (when (and (eq (org-clock-is-active) (current-buffer))
+            (when (and (eq (org-clocking-buffer) (current-buffer))
                        (<= start (marker-position org-clock-marker))
                        (>= end (marker-position org-clock-marker)))
               (with-silent-modifications