emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master c6ba810: Fix minor Org timestamp inefficiencies


From: Paul Eggert
Subject: [Emacs-diffs] master c6ba810: Fix minor Org timestamp inefficiencies
Date: Mon, 5 Aug 2019 20:38:20 -0400 (EDT)

branch: master
commit c6ba8100ea1db4616d3fe8485430b29143bc3d2e
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Fix minor Org timestamp inefficiencies
    
    * lisp/org/org-id.el (org-id-time-to-b36):
    Remove unnecessary ‘or’.
    * lisp/org/org.el (org-parse-time-string):
    Remove unnecessary ‘encode-time’.
---
 lisp/org/org-id.el | 2 +-
 lisp/org/org.el    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org/org-id.el b/lisp/org/org-id.el
index 8f9c132..fe439a7 100644
--- a/lisp/org/org-id.el
+++ b/lisp/org/org-id.el
@@ -421,7 +421,7 @@ using `org-id-decode'."
   (setq time (encode-time time 'list))
   (concat (org-id-int-to-b36 (nth 0 time) 4)
          (org-id-int-to-b36 (nth 1 time) 4)
-         (org-id-int-to-b36 (or (nth 2 time) 0) 4)))
+         (org-id-int-to-b36 (nth 2 time) 4)))
 
 (defun org-id-decode (id)
   "Split ID into the prefix and the time value that was used to create it.
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 5aa49b2..cbf085a 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -17785,7 +17785,7 @@ NODEFAULT, hour and minute fields will be nil if not 
given."
         ;; second argument.  However, this requires at least Emacs
         ;; 25.1.  We can do it when we switch to this version as our
         ;; minimal requirement.
-        (decode-time (encode-time (org-matcher-time s))))
+        (decode-time (org-matcher-time s)))
        (t (error "Not a standard Org time string: %s" s))))
 
 (defun org-timestamp-up (&optional arg)



reply via email to

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