ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tiny refactoring 

* lisp/org.el (org-sort-entries): Use keyword instead of symbol.
This commit is contained in:
Nicolas Goaziou 2017-08-07 13:11:54 +02:00
parent 6a9fc48097
commit f6a28ba1c2
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -9133,15 +9133,15 @@ function is being called interactively."
(save-restriction (save-restriction
(narrow-to-region start end) (narrow-to-region start end)
(let ((restore-clock? (let ((restore-clock?
;; The clock marker is lost when using `sort-subr'; let's ;; The clock marker is lost when using `sort-subr'; mark
;; mark the clock with a temporary ;; the clock with temporary `:org-clock-marker-backup'
;; `org-clock-marker-backup' text property. ;; text property.
(when (and (eq (org-clocking-buffer) (current-buffer)) (when (and (eq (org-clocking-buffer) (current-buffer))
(<= start (marker-position org-clock-marker)) (<= start (marker-position org-clock-marker))
(>= end (marker-position org-clock-marker))) (>= end (marker-position org-clock-marker)))
(org-with-silent-modifications (org-with-silent-modifications
(put-text-property (1- org-clock-marker) org-clock-marker (put-text-property (1- org-clock-marker) org-clock-marker
'org-clock-marker-backup t)) :org-clock-marker-backup t))
t)) t))
(dcst (downcase sorting-type)) (dcst (downcase sorting-type))
(case-fold-search nil) (case-fold-search nil)
@ -9231,9 +9231,9 @@ function is being called interactively."
(when restore-clock? (when restore-clock?
(move-marker org-clock-marker (move-marker org-clock-marker
(1+ (next-single-property-change (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 (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) (run-hooks 'org-after-sorting-entries-or-items-hook)
(message "Sorting entries...done"))) (message "Sorting entries...done")))