[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c6ba810: Fix minor Org timestamp inefficiencies,
Paul Eggert <=