emacs-elpa-diffs
[Top][All Lists]
Advanced

[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.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]