mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:00:49 +00:00
Code Releases Activity

org-macs: Fix last commit

Browse source 
* lisp/org-macs.el (org-parse-time-string): Fix typo in last commit.
* testing/lisp/test-org-element.el (test-org-element/timestamp):
  Rename to `test-org-element/timestamp-parser'.
This commit is contained in:
Nicolas Goaziou 2018-07-02 00:18:44 +02:00
parent e1884a0985
commit 937e7ce76b
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-macs.el
View file

@ -1110,10 +1110,10 @@ This should be a lot faster than the `parse-time-string'."
(unless (string-match org-ts-regexp0 s) (unless (string-match org-ts-regexp0 s)
(error "Not an Org time string: %s" s)) (error "Not an Org time string: %s" s))
(list 0 (list 0
(cond ((match-beginning 8) (string-to-number (match-string 8))) (cond ((match-beginning 8) (string-to-number (match-string 8 s)))
(nodefault nil) (nodefault nil)
(t 0)) (t 0))
(cond ((match-beginning 7) (string-to-number (match-string 7))) (cond ((match-beginning 7) (string-to-number (match-string 7 s)))
(nodefault nil) (nodefault nil)
(t 0)) (t 0))
(string-to-number (match-string 4 s)) (string-to-number (match-string 4 s))

2
testing/lisp/test-org-element.el
View file

@ -2402,7 +2402,7 @@ Outside list"
;;;; Timestamp ;;;; Timestamp
(ert-deftest test-org-element/timestamp () (ert-deftest test-org-element/timestamp-parser ()
"Test `timestamp' parser." "Test `timestamp' parser."
;; Active timestamp. ;; Active timestamp.
(should (should