mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-macs: Fix last commit 

* 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)
(error "Not an Org time string: %s" s))
(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)
(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)
(t 0))
(string-to-number (match-string 4 s))

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

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