forked from mirrors/org-mode
org-lint: Fix regexp when matching header-args
* lisp/org-lint.el (org-lint-wrong-header-argument): Correctly handle header-args:lang+ properties. Reported-by: Rudolf Adamkovič <salutis@me.com> Link: https://orgmode.org/list/m2y1ta9rqe.fsf@me.com
This commit is contained in:
parent
ee3dbb0fdb
commit
d98a496480
|
@ -1066,8 +1066,10 @@ Use \"export %s\" instead"
|
|||
(`keyword
|
||||
(when (string= (org-element-property :key datum) "PROPERTY")
|
||||
(let ((value (org-element-property :value datum)))
|
||||
(when (string-match "\\`header-args\\(?::\\(\\S-+\\)\\)?\\+? *"
|
||||
value)
|
||||
(when (or (string-match "\\`header-args\\(?::\\(\\S-+\\)\\)?\\+ *"
|
||||
value)
|
||||
(string-match "\\`header-args\\(?::\\(\\S-+\\)\\)? *"
|
||||
value))
|
||||
(funcall verify
|
||||
datum
|
||||
(match-string 1 value)
|
||||
|
@ -1076,8 +1078,10 @@ Use \"export %s\" instead"
|
|||
(`node-property
|
||||
(let ((key (org-element-property :key datum)))
|
||||
(when (let ((case-fold-search t))
|
||||
(string-match "\\`HEADER-ARGS\\(?::\\(\\S-+\\)\\)?\\+?"
|
||||
key))
|
||||
(or (string-match "\\`HEADER-ARGS\\(?::\\(\\S-+\\)\\)?\\+"
|
||||
key)
|
||||
(string-match "\\`HEADER-ARGS\\(?::\\(\\S-+\\)\\)?"
|
||||
key)))
|
||||
(funcall verify
|
||||
datum
|
||||
(match-string 1 key)
|
||||
|
|
Loading…
Reference in New Issue