Merge branch 'maint'

lisp/org-element.el

@@ -144,10 +144,12 @@
           "$" "\\|"
 	  ;; Tables (any type).
 	  "\\(?:|\\|\\+-[-+]\\)" "\\|"
-          ;; Blocks (any type), Babel calls, drawers (any type),
+          ;; Blocks (any type), Babel calls and keywords.  Note: this
-	  ;; fixed-width areas and keywords.  Note: this is only an
+	  ;; is only an indication and need some thorough check.
-	  ;; indication and need some thorough check.
+          "#\\(?:[+ ]\\|$\\)" "\\|"
-          "[#:]" "\\|"
+	  ;; Drawers (any type) and fixed-width areas.  This is also
+	  ;; only an indication.
+	  ":" "\\|"
           ;; Horizontal rules.
           "-\\{5,\\}[ \t]*$" "\\|"
           ;; LaTeX environments.

lisp/ox-publish.el

@@ -1226,8 +1226,9 @@ Returns value on success, else nil."
   (let ((attr (file-attributes
 	       (expand-file-name (or (file-symlink-p file) file)
 				 (file-name-directory file)))))
-    (+ (lsh (car (nth 5 attr)) 16)
+    (if (not attr) (error "No such file: \"%s\"" file)
-       (cadr (nth 5 attr)))))
+      (+ (lsh (car (nth 5 attr)) 16)
+	 (cadr (nth 5 attr))))))
 
 
 (provide 'ox-publish)