|
@@ -1066,8 +1066,10 @@ Use \"export %s\" instead"
|
|
(`keyword
|
|
(`keyword
|
|
(when (string= (org-element-property :key datum) "PROPERTY")
|
|
(when (string= (org-element-property :key datum) "PROPERTY")
|
|
(let ((value (org-element-property :value datum)))
|
|
(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
|
|
(funcall verify
|
|
datum
|
|
datum
|
|
(match-string 1 value)
|
|
(match-string 1 value)
|
|
@@ -1076,8 +1078,10 @@ Use \"export %s\" instead"
|
|
(`node-property
|
|
(`node-property
|
|
(let ((key (org-element-property :key datum)))
|
|
(let ((key (org-element-property :key datum)))
|
|
(when (let ((case-fold-search t))
|
|
(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
|
|
(funcall verify
|
|
datum
|
|
datum
|
|
(match-string 1 key)
|
|
(match-string 1 key)
|