forked from mirrors/org-mode
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:
parent
e1884a0985
commit
937e7ce76b
|
@ -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))
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue