mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
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)
|
(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))
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue