From f6a28ba1c23f9fa2370a35e432142b08abf0846c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 7 Aug 2017 13:11:54 +0200 Subject: [PATCH] Tiny refactoring * lisp/org.el (org-sort-entries): Use keyword instead of symbol. --- lisp/org.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 66626e0e1..1cbccfd66 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9133,15 +9133,15 @@ function is being called interactively." (save-restriction (narrow-to-region start end) (let ((restore-clock? - ;; The clock marker is lost when using `sort-subr'; let's - ;; mark the clock with a temporary - ;; `org-clock-marker-backup' text property. + ;; The clock marker is lost when using `sort-subr'; mark + ;; the clock with temporary `:org-clock-marker-backup' + ;; text property. (when (and (eq (org-clocking-buffer) (current-buffer)) (<= start (marker-position org-clock-marker)) (>= end (marker-position org-clock-marker))) (org-with-silent-modifications (put-text-property (1- org-clock-marker) org-clock-marker - 'org-clock-marker-backup t)) + :org-clock-marker-backup t)) t)) (dcst (downcase sorting-type)) (case-fold-search nil) @@ -9231,9 +9231,9 @@ function is being called interactively." (when restore-clock? (move-marker org-clock-marker (1+ (next-single-property-change - start 'org-clock-marker-backup))) + start :org-clock-marker-backup))) (remove-text-properties (1- org-clock-marker) org-clock-marker - '(org-clock-marker-backup t))))) + '(:org-clock-marker-backup t))))) (run-hooks 'org-after-sorting-entries-or-items-hook) (message "Sorting entries...done")))