[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 9d58e1c781: org: Make documentation of org-reverse-
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 9d58e1c781: org: Make documentation of org-reverse-note-order true |
Date: |
Fri, 20 Jan 2023 07:58:03 -0500 (EST) |
branch: externals/org
commit 9d58e1c78172eb6159265a0b73ea75d1b3f0679b
Author: Marco Wahl <marcowahlsoft@gmail.com>
Commit: Marco Wahl <marcowahlsoft@gmail.com>
org: Make documentation of org-reverse-note-order true
* lisp/org.el (org-notes-order-reversed-p): Return value is
org-reverse-note-order if it is neither nil or a list.
E.g. before nil has been returned when org-reverse-note-order was a
symbol. And this did not meet the documentation of
org-reverse-note-order.
---
lisp/org.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index a7658c3ac4..0e6a3da0a3 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8658,12 +8658,12 @@ or to another Org file, automatically push the old
position onto the ring."
"Check if the current file should receive notes in reversed order."
(cond
((not org-reverse-note-order) nil)
- ((eq t org-reverse-note-order) t)
- ((not (listp org-reverse-note-order)) nil)
- (t (catch 'exit
+ ((listp org-reverse-note-order)
+ (catch 'exit
(dolist (entry org-reverse-note-order)
(when (string-match (car entry) buffer-file-name)
- (throw 'exit (cdr entry))))))))
+ (throw 'exit (cdr entry))))))
+ (t org-reverse-note-order)))
(defvar org-agenda-new-buffers nil
"Buffers created to visit agenda files.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 9d58e1c781: org: Make documentation of org-reverse-note-order true,
ELPA Syncer <=