Browse Source

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
Ihor Radchenko 1 year ago
parent
commit
d98a496480
1 changed files with 8 additions and 4 deletions
  1. 8 4
      lisp/org-lint.el

+ 8 - 4
lisp/org-lint.el

@@ -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)