Browse Source

Merge branch 'maint'

Nicolas Goaziou 3 years ago
parent
commit
2c6a4bec73
1 changed files with 6 additions and 2 deletions
  1. 6 2
      lisp/ox-publish.el

+ 6 - 2
lisp/ox-publish.el

@@ -101,7 +101,8 @@ Most properties are optional, but some should always be set:
 
     Extension (without the dot!) of source files.  This can be
     a regular expression.  If not given, \"org\" will be used as
-    default extension.
+    default extension.  If it is `any', include all the files,
+    even without extension.
 
   `:publishing-directory'
 
@@ -473,7 +474,10 @@ This splices all the components into the list."
 		 (x (or (plist-get (cdr prj) :base-extension) "org"))
 		 (e (plist-get (cdr prj) :exclude))
 		 (i (plist-get (cdr prj) :include))
-		 (xm (concat "^" b (if r ".+" "[^/]+") "\\.\\(" x "\\)$")))
+		 (xm (concat "\\`" b
+			     (if r ".+" "[^/]+")
+			     (and (not (eq x 'any))
+				  (format "\\.\\(%s\\)\\'" x)))))
 	    (when
 		(or (and i
 			 (member filename