[Orgmode] [PATCH] default base-extension .org for org-publish

[Daniel Clemente]

Org-publish: correctly find files in projects which didn't define a 
base-extension.
Previously, (org-publish-get-project-from-filename "~/org/file.org") would 
return nil because the constructed regular expression 
"^/home/dc/org/.+\\.\\(\\)$" required a dot at the end.

#+BEGIN_QUOTE
diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index b387e7b..a50cf56 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -466,7 +466,7 @@ matching filenames."
          ;; [[info:org:Selecting%20files]] shows how this is supposed to work:
          (let* ((r (plist-get (cdr prj) :recursive))
                 (b (expand-file-name (plist-get (cdr prj) :base-directory)))
-                (x (plist-get (cdr prj) :base-extension))
+                (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 "\\)$")))

#+END_QUOTE