Merge branch 'maint'
This commit is contained in:
commit
f63bb5eea8
|
@ -671,7 +671,7 @@ Use \"export %s\" instead"
|
|||
(when (string= (org-element-property :key k) "OPTIONS")
|
||||
(let ((value (org-element-property :value k))
|
||||
(start 0))
|
||||
(while (string-match "\\(.+?\\):\\((.*?)\\|\\S-*\\)[ \t]*"
|
||||
(while (string-match "\\(.+?\\):\\((.*?)\\|\\S-+\\)?[ \t]*"
|
||||
value
|
||||
start)
|
||||
(setf start (match-end 0))
|
||||
|
@ -679,7 +679,11 @@ Use \"export %s\" instead"
|
|||
(unless (member item allowed)
|
||||
(push (list (org-element-property :post-affiliated k)
|
||||
(format "Unknown OPTIONS item \"%s\"" item))
|
||||
reports))))))))
|
||||
reports))
|
||||
(unless (match-string 2 value)
|
||||
(push (list (org-element-property :post-affiliated k)
|
||||
(format "Missing value for option item %S" item))
|
||||
reports))))))))
|
||||
reports))
|
||||
|
||||
(defun org-lint-invalid-macro-argument-and-template (ast)
|
||||
|
|
|
@ -1386,7 +1386,7 @@ e.g., `org-export-create-backend'. It specifies which back-end
|
|||
specific items to read, if any."
|
||||
(let ((line
|
||||
(let ((s 0) alist)
|
||||
(while (string-match "\\(.+?\\):\\((.*?)\\|\\S-*\\)[ \t]*" options s)
|
||||
(while (string-match "\\(.+?\\):\\((.*?)\\|\\S-+\\)[ \t]*" options s)
|
||||
(setq s (match-end 0))
|
||||
(push (cons (match-string 1 options)
|
||||
(read (match-string 2 options)))
|
||||
|
|
|
@ -313,6 +313,9 @@ This is not a node property
|
|||
"Test `org-lint-unknown-options-item' checker."
|
||||
(should
|
||||
(org-test-with-temp-text "#+options: foobarbaz:t"
|
||||
(org-lint '(unknown-options-item))))
|
||||
(should
|
||||
(org-test-with-temp-text "#+options: H:"
|
||||
(org-lint '(unknown-options-item)))))
|
||||
|
||||
(ert-deftest test-org-lint/invalid-macro-argument-and-template ()
|
||||
|
|
Loading…
Reference in New Issue