Parcourir la source

Tiny refactoring

* lisp/org.el (org-sort-entries): Use keyword instead of symbol.
Nicolas Goaziou il y a 7 ans
Parent
commit
f6a28ba1c2
1 fichiers modifiés avec 6 ajouts et 6 suppressions
  1. 6 6
      lisp/org.el

+ 6 - 6
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")))