[elpa] externals/org 038aff3 1/5: * lisp/org-clock.el (org-clock-get-table-data): Use proper closures

[ELPA Syncer]

branch: externals/org
commit 038aff34db3f7e6e0a01b784f6854df02083fc27
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Bastien <bzg@gnu.org>

    * lisp/org-clock.el (org-clock-get-table-data): Use proper closures
    
    Also, prefer #' to quote function names
---
 lisp/org-clock.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 42c5dae..5480a37 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -549,8 +549,8 @@ of a different task.")
   "Marker pointing to the task that has been interrupted by the current 
clock.")
 
 (defvar org-clock-mode-line-map (make-sparse-keymap))
-(define-key org-clock-mode-line-map [mode-line mouse-2] 'org-clock-goto)
-(define-key org-clock-mode-line-map [mode-line mouse-1] 'org-clock-menu)
+(define-key org-clock-mode-line-map [mode-line mouse-2] #'org-clock-goto)
+(define-key org-clock-mode-line-map [mode-line mouse-1] #'org-clock-menu)
 
 (defun org-clock--translate (s language)
   "Translate string S into using string LANGUAGE.
@@ -1419,12 +1419,12 @@ the default behavior."
           (setq org-clock-mode-line-timer
                 (run-with-timer org-clock-update-period
                                 org-clock-update-period
-                                'org-clock-update-mode-line)))
+                                #'org-clock-update-mode-line)))
         (when org-clock-idle-timer
           (cancel-timer org-clock-idle-timer)
           (setq org-clock-idle-timer nil))
         (setq org-clock-idle-timer
-              (run-with-timer 60 60 'org-resolve-clocks-if-idle))
+              (run-with-timer 60 60 #'org-resolve-clocks-if-idle))
         (message "Clock starts at %s - %s" ts org--msg-extra)
         (run-hooks 'org-clock-in-hook))))))
 
@@ -1721,7 +1721,7 @@ to, overriding the existing value of 
`org-clock-out-switch-to-state'."
          (unless (org-clocking-p)
            (setq org-clock-current-task nil)))))))
 
-(add-hook 'org-clock-out-hook 'org-clock-remove-empty-clock-drawer)
+(add-hook 'org-clock-out-hook #'org-clock-remove-empty-clock-drawer)
 
 (defun org-clock-remove-empty-clock-drawer ()
   "Remove empty clock drawers in current subtree."
@@ -2017,7 +2017,7 @@ Use `\\[org-clock-remove-overlays]' to remove the subtree 
times."
              (when time (org-clock-put-overlay time)))))
        ;; Arrange to remove the overlays upon next change.
        (when org-remove-highlights-with-change
-         (add-hook 'before-change-functions 'org-clock-remove-overlays
+         (add-hook 'before-change-functions #'org-clock-remove-overlays
                    nil 'local))))
     (let* ((h (/ org-clock-file-total-minutes 60))
           (m (- org-clock-file-total-minutes (* 60 h))))
@@ -2068,7 +2068,7 @@ If NOREMOVE is nil, remove this function from the
     (setq org-clock-overlays nil)
     (unless noremove
       (remove-hook 'before-change-functions
-                  'org-clock-remove-overlays 'local))))
+                  #'org-clock-remove-overlays 'local))))
 
 ;;;###autoload
 (defun org-clock-out-if-current ()
@@ -2953,12 +2953,12 @@ PROPERTIES: The list properties specified in the 
`:properties' parameter
     (save-excursion
       (org-clock-sum ts te
                     (when matcher
-                      `(lambda ()
-                         (let* ((todo (org-get-todo-state))
-                                (tags-list (org-get-tags))
-                                (org-scanner-tags tags-list)
-                                (org-trust-scanner-tags t))
-                           (funcall ,matcher todo tags-list nil)))))
+                      (lambda ()
+                        (let* ((todo (org-get-todo-state))
+                               (tags-list (org-get-tags))
+                               (org-scanner-tags tags-list)
+                               (org-trust-scanner-tags t))
+                          (funcall matcher todo tags-list nil)))))
       (goto-char (point-min))
       (setq st t)
       (while (or (and (bobp) (prog1 st (setq st nil))